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ABSTRACT 

A  collection  of  models  developed  to  simulate  atmospheric  transport  of 
local  fallout  from  nuclear  detonations  is  described.  These  models  com¬ 
prise  the  Transport  Module  of  the  Department  of  Defense  Land  Fallout  Pre¬ 
diction  System  (acronym  DELFIC).  Details  of  the  physical  bases  of  the 
models  as  well  as  the  Transport  Module  computer  programs  are  presented. 
The  programs  provide  for  temporal  and  three-dimensional  spatial  variation 
of  the  wind  field.  Wind-field  construction  from  input  data  can  be  accom¬ 
plished  by  one  of  several  preprogrammed  methods  that  may  be  selected  on 
the  basis  of  the  type  and  quantity  of  available  data.  Submodels  for  special 
local  circulation  systems  can  be  superposed  on  the  macrowind  system.  A 
capability  to  simulate  highly  variable  topography  is  included.  The  com¬ 
puter  programs  are  essentially  open  ended  with  regard  to  capacity  for  par¬ 
ticle,  wind  field,  and  topography  data. 
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INTRODUCTION 


The  purpose  of  the  Transport  Module  is  to  accept  a  list  of  fallout  particle  prop¬ 
erties  and  positions  at  the  end  of  the  cloud  rise  and  mathematically  transport  these 
particles  through  a  temporally  and  spatially  varying  wind  velocity  field  until  they 
land  on  the  ground  or  until  the  researcher's  interests  are  otherwise  satisfied.  This 
module  can  be  characterized  by  the  terms  atomistic,  deterministic,  and  discrete. 

It  is  atomistic  because  the  basic  element  of  the  module  calculations  is  the  fallout 
particle  and,  at  least  in  concept,  the  end  results  of  the  model  are  based  on  the 
summation  of  the  effects  of  individual  particles.  It  is  deterministic  because  the 
trajectories  of  individual  particles  falling  through  the  atmosphere  are  uniquely  de¬ 
termined  by  particle  and  atmospheric  properties.  It  is  discrete  since  the  distribu¬ 
tions  of  particles  in  space,  particle  size,  and  radioactivity  are  divided  into  discrete 
parts,  the  effects  of  which  are  associated  with  representative  central  particles. 

The  macroscale  atmospheric  description  used  within  the  Transport  Module  is  also 
discrete  in  that  the  atmospheric  volume  of  interest  during  a  given  time  period  is 
divided  into  subvolumes  (cells).  Everywhere  within  a  cell  the  atmospheric  prop¬ 
erties  are  considered  to  be  uniform.  Thus,  the  Transport  Module  is  discrete  in 
space,  time,  and  particle  size. 

A  set  of  fallout  particles  chosen  as  representative  of  the  contents  of  cloud  sub¬ 
divisions  is  prepared  by  the  Cloud  Rise-Transport  Interface  program  of  the  Cloud 
Rise  Module.  The  generation  of  this  input  is  described  in  detail  in  Volume  III  of 
this  documentation;  here  we  review  only  its  essential  highlights.  Figure  1(a)  depicts 
the  particle  cloud  resulting  from  the  rise  and  growth  of  the  nuclear  cloud  before  ac¬ 
counting  for  wind  drift  during  cloud  rise.  A  region  of  space  that  includes  the  cloud 
is  subdivided,  as  shown  in  Figure  1(b),  and  a  particle  content  is  defined  for  each 
subdivision.  In  general,  the  contents  of  each  cloud  subdivision  are  unique.  Each 
subdivision  depicted  in  Figure  1(b)  may  be  further  subdivided  into  a  large  number 
of  spatial  subdivisions.  Furthermore,  each  of  these  spatial  subdivisions  will  be 
represented  by  a  number  of  different  central  particles  —  one  for  each  size  class 
that  is  actually  represented  within  the  original  cloud  subdivision.  Figure  1(c)  de¬ 
picts  the  location  of  the  subdivisions  representing  a  particular  size  range  after  the 
effect  of  wind  drift  during  cloud  rise  has  been  accounted  for. 
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(a)  Accept  Particle 
Sample  Resulting  from 
Cloud  Rise  Module 


(b)  Load  Sample 
into  Array,  Smooth 
the  Array  to  Define 
all  Transportable 
Cloud  Wafers 


(c)  Adjust  Positions  of  Wafer  Centers  to 
Account  for  Winds  During  Cloud  Rise 


Figure  1.  Operations  of  the  Cloud  Rise  -  Transport  Interface 

Module 

The  Transport  Module  takes  as  input  the  coordinates  of  the  center  of  each  sub¬ 
division,  at  which  position  it  assumes  residence  of  a  representative  central  par¬ 
ticle  of  given  mass  and  size.  The  time  of  input  of  the  central  particle  to  the  Trans¬ 
port  Module  also  is  given.  A  diagrammatic  representation  of  a  cloud  subdivision 
and  its  defining  parameters  as  accepted  by  the  Transport  Module  are  shown  in 
Figure  2.  Within  the  Transport  Module  the  trajectory  of  each  cloud  subdivision 
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PARAMETERS 


1. 

2. 

3. 

4. 

5. 

6. 


Central  Particle  Size 


Mass  Pet  Unit  Area 
X  Coordinate  (E-W) 
Y  Coordinate  (N-S) 

Z  Coordinate  (ALT) 
Time  Coordinate 


Figure  2.  The  Elementary  Cloud  Subdivision  and  Its  Characterization 
(B  is  the  dimension  of  all  cloud  subdivisions  at  the  time  of  their  definition.) 

(represented  by  its  central  particle)  is  determined  independently  of  all  others  and 
transport  ceases  when  the  central  particle  lands  on  the  topography. 

Within  the  Transport  Module  there  are  two  systems  for  the  description  of  at¬ 
mospheric  flow:  the  primary,  or  "macro,  "  system;  and  the  secondary,  or  "local," 
system.  The  use  of  these  systems  of  description,  however,  is  merely  suggestive 
of  but  not  restricted  to  the  macrometeorological  and  local  meteorological  scales. 

In  the  macroscale  description  relatively  large  cells  may  be  employed,  and  the 
totality  of  cells  may  include  a  vast  volume  of  atmosphere  perhaps  on  a  macromete¬ 
orological  scale.  In  the  local  atmospheric  system  cells  more  freedom  is  allowed 
in  the  mode  of  circulation  description.  Within  each  local  circulation  system  unique 
particle  transport  procedures  can  apply.  For  practical  reasons  the  DELFIC  sys¬ 
tem  restricts  the  researcher  to  use,  at  any  one  time,  only  a  small  number  of  local 
circulation  systems  that  are  defined  within  specified  boundaries.  Where  "local" 
and  "macro"  description  systems  overlap,  the  former  take  precedence  since  they 
are  capable  of  greater  precision. 
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PHYSICAL  AND  MATHEMATICAL  MODELS 


Fallout  Particle  Kinematics 

Relationship  Between  Wind  Field  and  Particle  Velocity 

The  fundamental  equations  that  describe  the  motion  of  fallout  particles  (which 
are  typically  greater  than  10 u  in  diameter)  in  the  wind  field  are  the  momentum 
equation 


V  (t)  -  V 
~p '  ~w 


[r(t),t]j 


<$> 


V  - 
~P 


(1) 


and  the  displacement  equation 


dr 

dtT  =  ~p 


(2) 


where  V  and  V  are  the  particle  and  wind  velocity  respectively,  G  =  -Gk  where  G 
p  w 

is  the  gravitational  constant  and  k  is  a  unit  vector  which  points  in  the  positive  z 
direction,  r  is  the  particle's  position,  and  <p(  \  Vp  -  YWD  is  a  friction  function  de¬ 
fined  so  that  the  frictional  force  per  unit  mass  between  the  particle  and  the  wind  is 
given  by 


F  =  -  { V  -  V  \  <f>  /  |  V  -V  |  \ 
^  ~p  ~w  J  \  ~p  ~w  J 


(3) 


★ 

A  commonly  used  expression  for  <p  in  the  pressure  flow  regime  is 


D 

m 


P  A 


V  -  V 
~p  ~w 


=  K 


V  -  V  [ 

~p  ~w 1 


while  in  the  Stokes  law  regime  <p  is  a  constant. 
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We  have  shown  in  Appendix  A  of  Ref.  1  that  for  all  but  the  most  extreme  con¬ 
ditions  of  airflow,  for  example,  tornadoes,  the  components  of  particle  velocity 
are  given  by 


and 


=  U  , 


(4) 


(5) 


V 

pz 


=  -vF  +  w  , 


(6) 


where  U,  V,  and  W  are  the  x,  y,  and  z  components  of  the  wind  velocity,  respec¬ 
tively,  and  Vp  is  the  still-air  particle  settling  rate.  In  effect  we  have  been  able 
to  solve  the  momentum  equation  for  the  fallout  particle,  thus  reducing  the  dynamics 
of  the  transport  problem  to  the  solution  of  the  position  equation. 

Particle  Settling  Rates 

We  have  performed  a  comprehensive  survey  of  the  methods  used  for  comput¬ 
ing  particle  settling  rates  as  given  both  in  the  open  literature  and  in  the  literature 

on  fallout  prediction  methods.  On  the  basis  of  this  survey,  we  have  concluded  . 

2 

that  the  equations  of  Davies  for  spheres  are  most  appropriate  for  use  in  the'  DOD 
Land  Fallout  Prediction  System.  The  following  procedure  is  used  in  computing 
particle  settling  rates: 

2 

1.  The  dimensionless  quantity  C^R  ,  where  is  the  drag  coefficient  and 
R  is  the  Reynolds  number,  is  evaluated  by  the  equation 


c  r2_4_^v: 

D  "  3„2 


(7) 


where  G  is  the  acceleration  of  gravity,  p 
and  particle,  d  is  the  particle  diameter, 
of  the  air. 


and  p  are  the  densities  of  air 
P 

and  r]  is  the  dynamic  viscosity 
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2.  The  Reynolds  number  is  evaluated  from  the  Davies  polynomials: 


CDR 


-4  „2' 


24 


R  =  -  2. 3363  x  10  C^R"  +2.  0154  x  10  C^R 


D 


.-6 


D 


(8) 


-  6.9105  x  10“9  ( CdR2^;  ,  CDR2  <  140 


or 


log1Q  R  =  -1.29536  +  0.986(^logl0  CDR2^  -  0 . 046677  ^log1Q  CDR2^ 


(9) 


+  0. 0011235 (  log10  CDR2^  ,  100  <  CpR2  <  4.5  xlO7 


3.  The  settling  velocity  V_  is  computed  from 

r 


v  =  Ba 

F  pd 


(10) 


4.  For  small  particles  at  high  altitudes,  the  settling  velocity  must  be  multi¬ 
plied  by  a  drag  slip  correction,  f,  where 


f  = 


1  + 


2,33  x  10 
dp 


(ID 


and  d  and  p  are  in  microns  and  grams  per  cubic  centimeter,  respectively. 

We  have  concluded*  that  methods  commonly  used  in  the  past  to  correct  particle 
fall  rates  for  shape  effects  in  fallout  prediction  calculations  are  incorrect.  Appar¬ 
ently  it  is  true  that  irregularity  of  shape  can  have  a  significant  influence  on  settling 
rate;  however,  the  only  precise  information  of  a  general  nature  that  seems  to  be 
available  is  that  a  particle  of  spherical  shape  falls  at  a  rate  that  is  a  maximum  for 
particles  of  equivalent  volume  of  all  shapes.  In  addition,  irregularity  of  shape  can 
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cause  deviation  of  particle  trajectories  from  the  vertical  in  still  air.  It  is  known 
that  both  of  these  effects  become  more  pronounced  with  increase  in  Reynolds 
number.  Unfortunately,  so  little  experimental  work  has  been  done  for  particles 
in  the  pressure  flow  range  (i.e. ,  for  large  Reynolds  numbers)  that  the  importance 
of  these  effects  to  fallout  prediction  calculations  cannot  be  precisely  determined. 
Additional  studies  of  these  effects  should  be  performed  to  resolve  the  issue. 

Appendix  B  of  Ref.  1  presents  the  details  of  our  study  and  a  comparison  of 
particle  settling  rate  computation  methods. 

Effect  of  Atmospheric  Diffusion  on  Particle  Transport 

In  our  model  of  cloud  subdivision  transport  a  segment  of  cloud  volume  of 
height  AZ  and  lateral  dimensions  2Xq,  2Yq  (see  Figure  3)  is  assumed  to  move 


Figure  3.  Segment  of  Cloud  Volume 

through  the  atmosphere  as  a  rigid  body  if  turbulent  diffusion  is  absent.  To  be 
sure,  it  is  assumed  (still  neglecting  diffusion)  that  the  initial  extent  of  the  cloud 
subdivision  is  small  enough  so  that  the  equation  of  motion  of  a  hypothetical  par¬ 
ticle  located  at  the  periphery  will  not  differ  from  that  at  the  center.  The  motion 
of  the  center  is  determined  from  the  conventional  transport  equations  as  previ¬ 
ously  developed  (i.  e. ,  Eqs.  (4)-(6)). 
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In  reality,  the  cloud  subdivision  represents  a  group  of  particles  (of  a  par¬ 
ticular  size  range)  whose  total  number  is  N  and  whose  initial  uniform  lateral 
density  is 


Oq  =  4yNx '  (particles  -  m-2)  .  (12) 

u  1  o  o 

During  transport,  turbulent  diffusion  tends  to  disperse  the  particles  of  the  cloud 
subdivision  so  that  by  the  time  the  subdivision  reaches  the  ground,  its  shape  will 
have  changed  and  its  particle  density,  a,  will  have  decreased  and  become  nonuniform. 

The  increase  in  lateral  area  is  due  to  the  cumulative  effect  of  diffusion  of  all 
the  particles  contained  in  the  slice.  If  the  origin  is  established  at  the  center  of  the 
slice,  the  lateral  density  of  particles,  P(x,  y,  t),  at  a  time  t  is  given  by 


+  X  +  Y 
o  o 


P(x 


,  y,  t)  =  aQ  y  J  G(x  -  x' ,  y  -  y ,  t)  dx'  dy>  , 


-X  -Y 
o  o 


where  the  diffusion  kernel  G(x  -  x' ,  y  -  y  ,  t)  is  given  by 


G  =  (2nDt)  1  exp 


(x  -  x')2  +  (y  -  Y)2 


/2Dt  r  , 


(13) 


(14) 


with  D  being  the  diffusion  constant.  Consideration  of  Eqs.  (13)  and  (14)  show  that 
P(x,  y,  t)  is  defined  over  the  entire  x,  y  plane,  but  as  an  approximation  to  the  theo¬ 
retical  result  for  computational  purposes  we  have  chosen  to  construct  an  equivalent 
rectangular  segment  of  uniform  surface  density  a  with  dimensions  defined  as  X,  Y. 
These  equivalent  dimensions  are  determined  by  requiring  that  the  mean-square 


The  term  lateral  density  is  used  to  refer  to  the  surface  density 
(particle/unit  area)  that  would  result  if  the  particles  represented  by  a  cloud 
subdivision  were  deposited  vertically  onto  a  horizontal  plane. 
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2  2 

displacements  x  ,  y  of  the  rectangular  segment  be  the  same  as  those  computed 
from  the  exact  probability  distribution  P(x,  y,  t). 

~ 2  ~2 

It  is  easy  to  show  that  for  a  uniform  distribution^  and  y  are  related  to  the 
limiting  dimensions  via  the  formulas: 

x2  =  1/3  X2;  y2  =  1/3  Y2  .  (15) 

On  the  other  hand,  we  have 


Wind- Field  Description 


As  previously  mentioned,  there  are  two  complementary  and  simultaneously 
compatible  modes  for  describing  the  wind  field:  (1)  the  macrowind  description  sys¬ 
tem  which  makes  use  of  a  numerical  approximation  to  a  complete  three  dimensional 
wind  field  derived  from  observed  data  and  is  of  greatest  general  utility;  and  (2)  the 
local  circulation  description  system  which  makes  use  of  analytical  representations 
of  special  atmospheric  situations  (e.  g. ,  sea  breezes  or  mountain  winds).  These 
local  systems  also  are  three  dimensional  and  can  coexist  with  a  macrowind  field, 
in  which  case  they  override  the  macrowind  field  within  the  volume  of  space  common 
to  both.  These  modes  of  wind-field  description  are  described  in  detail  in  the  sub¬ 
sequent  sections. 

Macrowind  Fields 

The  macrowind-field  descriptions  are  accomplished  as  follows.  A  Cartesian 
coordinate  system  that  encompasses  the  region  of  close-in  fallout  is  established 
with  arbitrary  origin.  With  reference  to  this  coordinate  system,  grid  square  arrays 
are  specified  on  horizontal  planes  at  arbitrarily  spaced  intervals  in  the  vertical  di¬ 
rection.  Figure  4  illustrates  how  such  a  set  of  strata  is  used  to  fill  the  volume  of 
atmosphere  of  interest.  Each  stratum  is  further  subdivided  into  a  number  of  wind 
cells  in  a  regular  manner  as  is  shown  in  Figure  5. 

To  assign  vectors  to  wind  cells,  the  user  must  first  specify  as  input  a  data  set 
of  wind  vectors  and  vector  positions.  This  data  set  can  be  arbitrary  in  number  and 
distributed  in  an  arbitrary  manner  throughout  the  atmospheric  volume  of  interest. 

The  program  then  determines  and  associates  a  wind  vector  with  each  wind  cell  in 
the  volume  of  interest.  These  wind  cell  vectors  are  based  on  the  input  data,  and 
there  are  three  interpolation-extrapolation  computational  methods  available  for  use 
in  determining  them. 

In  the  first  option  the  program  assigns  to  each  wind  cell  the  data  vector  nearest 
the  cell's  center.  The  second  option  uses  a  weighted  average  of  nearest  data  vectors, 
where  the  user  is  free  to  specify  both  the  number  and  the  distances  of  the  vectors  to 
be  considered.  The  third  option  uses  a  statistically  derived  three  dimensional  linear 
model  of  the  atmosphere  based  on  the  N  nearest  data  vectors  to  perform  the  required 
interpolation  or  extrapolation  for  each  cell.  The  method  to  be  used  in  any  particular 


Figure  4,  Strata  within  the  Specified  Wind  Field  Volume 
(illustrated  for  six  strata) 


X0  N 


Figure  5.  Wind  Cells  —  Subdivisions  of  a  Stratum  (illustrated  for  the  Jth 

stratum  from  the  bottom) 
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case  must  be  determined  on  the  basis  of  the  quantity  and  quality  of  the  data  available. 
The  notation  used  in  the  explanation  of  the  three  methods  is  as  follows: 


R.  --  position  of  ith  observed  wind  velocity  vector  relative  to  the 
wind-field-array  grid  point  R 

V.  =  measured  wind  velocity  at  position  R. 

Xo  =  wind  velocity  at  a  wind-field-array  grid  point  Rq.  Vq  is  to 

be  determined  from  R  .  and  V  .. 

1  ~  1 

The  Closest  Datum  Method.  In  this  method  the  velocity  at  the  grid  point  is 
assumed  to  be  the  same  as  that  of  the  closest  datum  point.  This  will  probably  be  a 
good  approximation  if  the  location  of  a  measurement  is  sufficiently  close  to  the  ar¬ 
bitrary  point. 


The  Preferential-Weighting  Method.  In  the  preferential  weighting  method  Vq 
is  computed  as  a  weighted  average  of  the  velocities  from  observations  that  lie  within 
distance  j?  from  the  grid  point  in  the  horizontal  plane  and  distance  Gfrom  the  grid 
point  in  the  vertical  direction.  Specifically,  the  relationship  between  V  and  V. 
is  given  by 

N 

Yo-^fiY  ,  (is) 

where 

N 

I  fi  -  i  ■  <20> 

i=  1 

A  weighting  method  described  by  Cressman^  has  been  used  in  deriving  an  expression 

for  f.  in  the  form 
i 


(21) 


The  parameters  a,  (3,  and  N  are  specified  by  the  use”,  a  and  /3  have  the  physical 
significances  described  previously.  The  calculations  of  the  f.  are  performed 
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so  that  whenever  a  factor  in  Eq.  (21)  is  found  to  be  negative,  its  value  is  replaced 
with  zero.  If  N  is  specified  to  be  less  than  the  total  number  of  observations,  only 
the  N  observations  closest  to  the  grid  point  are  considered  in  the  calculations. 

The  Least-Squares  Method.  Here,  we  assume  that  each  velocity  component  is 
an  analytic  function  of  position.  Since  the  wind  velocity  in  the  macrowind  field  will 
not  undergo  very  great  spatial  variations  in  a  short  distance,  it  becomes  possible 
to  approximate  each  component  of  the  wind  velocity  by  the  first  few  terms  of  the 
Taylor  expansion  taken  about  the  grid  point  as  origin.  We  can  then  write 


and 


u  =  u  +  (Vu)  *  R  , 
o  '  o  ^ 

v  =  v  +  (Vv)  •  R  , 

w  =  w  +  (Vw)  •  R  , 
o  o  ^ 


(22) 


where  uq,  vq,  and  wq  are  the  x,  y,  and  z  components  of  the  wind  velocity  at  the 
origin.  By  least-squares  fitting  of  Eq.  (22)  to  the  data  points,  we  can  determine 
the  twelve  unknown  constants  u  ,  v  ,  w  ,  (Vu)  =  A,  (Vv)  =  B,  and  (Vw)  =  C. 
Actually,  the  computation  breaks  down  into  three  separate  parts  involving  (uq,  A), 
(vq,  B),  and  (wq,  C).  To  illustrate  the  procedure,  we  shall  outline  the  method  for 
computing  uq.  If  Ik  denotes  the  x  component  of  wind  velocity  at  the  ith  sounding 
station,  the  ith  residual  is  given  by 
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with  respect  to  these  four  parameters.  The  four  linear  equations  so  deduced  are 


9F 


-0-Au.+yf«  +A.!M  . 

9u  Z_  i  L  {  o  -  —  ' 


<V  /VI 


(25) 


~  =  0  =  -  )  U.x.  +  y  (u  +  A  •  R.  \  x.  , 

9A  L  ii  L.  {  o  ~  ~i )  l 


9F 

9A 


=  0  =  U.y.  +  Y.  (Uo  +  ~  '  Si)  yi  ’ 


(26) 

(27) 


and 


9F 

9A 


=  0  =  -  y  U.  z.  +  y  ( u  +  A  •  R.  \  z. 

L  i  i  Z_v°  ~  — i  /  i 


(28) 


Introducing  the  averaged  quantities, 


“  =  (n)  I  ur  *  =  (fi)  I  xi' y  =  (£  '1  • 


*  °  (s)  I  zr  “  ■  (s)  1  uixi  -  uy  =  (n)  I  uiyi  ■ 


uz 


n)  I  uizr  x2  -  (s)  ^  xiV  xy  =  (n)  I  Vi  • 


\N; 


(29) 


xz  =  (n)  I  xizi’  yz  =  (§)  1  yizi’  y2  =  (n)  I  yiyi  ’ 


and 


~2  (l\  \ 

z  =In  2  zizi  ’ 
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gives  the  following  matrix  equation  for  uq  and  A: 


1  x  y  z 


-  2 - 

xx  xy  xz 


y  xy  y2  yz 


z  xz  yz  z 


By  use  of  conventional  matrix  inversion  techniques,  Eq.  (30)  can  be  solved  for  u  . 


We  have 


u0  =  Yiu  +  +  Y3uy  +  r4uz 


where 


= 


i  i  ki 

in  which  |B|  denotes  the  determinant  of  the  matrix  Eq.  (30).  The  quantities  B 

j+k 

are  the  cofactors  which  equal  (-1)  times  the  complementary  minor  of  the  matrix 
element  B^. .  It  is  easy  to  show  that  the  y  and  z  components  of  velocity  are  given  by 

vo  =  YjV  +  y2vx  +  73vy  +  y4vz  ’  (33) 

and 

Wo  =  YjW  +  y2wx  +  73wy  +  y4wz  ,  (34) 

where  the  averaged  quantities  in  Eqs.  (33)  and  (34)  are  of  the  same  nature  as  those 
shown  in  Eq.  (29)  with  the  replacement  of  IL  with  V.  and  W. . 

Some  reflection  shows  that  the  determinant  of  the  matrix  can  equal  zero  when 
the  measured  points  lie  on  the  same  plane  or  on  a  line.  (For  example:  if  z  =  z  is 
the  same  for  all  stations,  then  the  fourth  column  of  B  is  z*  times  the  first  and  |  b| 
vanishes. )  This  is  a  manifestation  of  the  impossibility  of  passing  a  different  plane 
through  the  N  points.  We  have  provided  for  these  degenerate  cases  in  the  computer 
program.  When  the  determinant  of  B  is  very  small,  we  revert  back  to  the  prefer¬ 
ential-weighting  method. 

Local  Circulation  Systems 

Provision  has  been  made  to  incorporate  local  circulation  systems  in  the  com¬ 
puter  program  to  afford  prediction  of  the  wind  velocity  in  regions  where  (1)  direct 
measurements  of  the  wdnd  velocity  are  not  readily  available  and  (2)  the  density  of 
measuring  stations  is  not  adequate  to  account  for  rapid  spatial  changes  in  the  wind 
field.  At  present,  two  such  local  circulation  systems  are  available:  the  orographic 
and  sea-breeze  systems. 

The  regions  controlled  by  these  models  are  bounded  by  planes  perpendicular  to 
the  coordinate  axes.  Inside  these  regions,  wind  vectors  are  computed  for  specific 
circulation  model  parameters.  Figure  6  represents  three  of  these  local  circulation 
cells  as  they  may  be  superimposed  upon  the  macrostratum  and  wind  cell  structure. 
The  important  physical  features  of  these  local  circulation  systems,  as  they  pertain 
to  user  application,  are  now  discussed,  although  the  details  of  the  theory  in  each 
case  are  presented  in  Appendixes  A  and  B,  respectively. 
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Figure  6.  Wind-Field  Volume  with  Superimposed  Local 
Circulation  System  Cells 

Orographic  Effects.  The  theoretical  model  of  orographic  flow  is  intended  for 
use  in  regions  where  suitable  meteorological  data  are  not  readily  available.  Spe¬ 
cifically,  the  model  assumes  that  in  the  absence  of  the  variable  terrain  region  under 
consideration,  a  certain  uniform  steady  velocity  field  would  exist.  The  mountains 
and  valleys  then  cause  the  assumed  flow  to  change,  and  it  is  the  resulting  wind  field 
which  is  computed  by  the  model.  It  is  possible  to  compute  the  wind  field  in  a  region 
which  contains  several  orographic  features  by  first  computing  the  wind  field  due  to 
a  single  one  and  then  summing  up  the  effects.  This  procedure  works  as  follows: 

Let  uq  be  the  velocity  of  the  unperturbed  flow  (i.e.  the  flow  that  would  exist  in 
the  absence  of  the  mountains  and  valleys).  Now  orient  the  coordinate  system  so 
that  the  x  direction  points  along  uq,  and  let  the  y  axis  be  perpendicular  to  uq  and 
the  z  axis  point  in  the  direction  of  the  zenith.  The  functions  u(x,  y,  z),  v(x,  y,  z),  and 
w(x,y,  z)  denote  the  x,y,  and  z  components  of  the  wind  velocity  respectively. 
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We  have  found  that  a  suitable  mathematical  representation  for  a  single  moun¬ 


tain  is 


z  =  f(x,  y)  = 


2  2 
a  +  r 


3/2  ’ 


where  z  is  the  elevation  of  the  mountain,  expressed  as  a  function  of 


=  (x 


2  .  2 


the  horizontal  distance  from  the  center  of  the  mountain;  h  is  the  maximum  elevation 
of  the  mountain  as  can  be  seen  by  setting  r  =  0  in  Eq.  (35);  and  a  is  a  characteristic 
width  of  the  mountain  (when  r  =  a  the  elevation  z  =  0.35h).  The  components  of  wind 
velocity  resulting  from  the  mountain  whose  vertical  position  with  distance  is  given 
by  Eq.  (35)  is  given  by: 


u(x,y,z)  =  uq  !  1  +  (a2h) 


(y2  +  x2  -  2x2) 

U  +  *  ) 


v{x,y,  z)  =  -3u  la2h) 


2  ^  2 
r  +  X 


5/2  ’ 


w(x,  y,  z)  =  -3uQ(a2h) 


2  2 
r  +  X 


5/2  * 


where 


X  =  (z  +  a)  . 


18 


Obviously,  the  foregoing  expressions  for  the  components  of  wind  velocity  are 
applicable  for 

z  >  f(x,  y)  (41) 

(i.e.  for  those  points  which  lie  above  the  ground).  Equations  (37)-(39)can  be  used 
to  describe  the  flow  of  wind  over  a  valley  whose  mathematical  description  is  like 
that  of  an  inverted  mountain.  For  this  situation  we  merely  replace  h  by  -h,  the 
maximum  depression  of  the  mountain. 

Another  important  obstacle  to  be  considered  is  a  mountain  ridge  whose  Crest¬ 
line  makes  an  arbitrary  angle  y  with  respect  to  the  direction  of  the  unperturbed 
flow  uq.  The  pertinent  geometric  details  are  shown  in  Figure  7. 


Figure  7.  Mountain  Ridge  Not  Perpendicular  to  Flow 
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The  mathematical  description  of  the  elevation  of  the  mountain  ridge  when 
viewed  along  the  y'  axis  is  given  by  the  expression 


* 

z  = 


1  +  (x' /ay 


(42) 


where  h  is  the  maximum  elevation  of  the  ridge;  a,  in  this  case,  is  the  half  width 
(z  =  0. 5h  when  x'  =  a);  and  the  x  and  y  coordinates  are  related  to  x'  and  y  by  the 
equations 


x  =  x'  cos  y  -  y  sin  y  ,  x'  =  x  cos  y  +  y  sin  y  ; 


y  =  x'  sin  y  +  y  cos  y  ,  y  =  -x  sin  y  +  y  cos  y 


The  wind  velocity  components  referred  to  the  x,  y,  z  coordinates  are  given  by 


(43) 


u  =  u  -  u  (ah)  cos  y 
o  o  '  ' 


2  _feL£g.sx±JLSin  y)2 *2 


2  2 

(x  cos  y  +  y  sin  y)  +  X 


2  ’ 


(44) 


,  ,  v  .  (x  cos  y  +  y  sin  y)  - 

v  =  -u  (ah)  cos  y  sin  y  — i - L - ^ — - 


(45) 


2  2 

(x  cos  y  +  y  sin  y)  +  \ 


and 


.  ,  ,  (x  cos  y  +  y  sin  y) 

w  =  -2u  (ah)  X  cos  y - * - L - 2 - u~ 


where 


2  2 

(x  cos  y  +  y  sin  y)  +  x 


X  =  z  +  a  . 


(46) 
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It  should  be  carefully  noted  that  u,  v,  and  w  do  not  depend  on  y' ,  as  can  be  seen 
from  the  substitution  x'  =  x  cos  y  +  y  sin  y  in  Eqs.  (44)-(46),  so  that  the  origin  of 
the  mountain  ridge  can  be  located  anywhere  along  the  Crestline.  Equations  (44)-(46) 
can  also  be  applied  to  a  valley  ridge  whose  shape  is  that  of  an  inverted  mountain 
ridge,  with  the  replacement  of  h  by  -h. 

In  summary  then,  we  can  compute  the  wind  field  due  a  mountain,  inverted  moun¬ 
tain  (valley),  mountain  ridge,  and  inverted  mountain  ridge  (valley  ridge).  For  the 
single  mountain  (valley)  the  expressions  for  the  velocity  are  referred  to  the  center 
of  the  mountain  whose  coordinates  can  be  denoted  by 


( 


x.,  y. 
1’ 


That  is,  if  x,  y  and  z  denote  the  point  in  question,  then  the  components  of  the  wind 
field  due  to  the  mountain  in  question  that  are  computed  at  this  point  are  given  by 


u.(x,y,  z)  = 


u( 


x  -x.,y  -  y.,z 


and 


v. (x,y,  z)  =  v^x  -x.,y  -  y.,  z 

w. (x,  y,  z)  =  w/x  -  x.,y  -  y.,z 


(47) 


where  u(x  -  Xj,  y  -  y j,  z),  v(x  -  x.,  y  -  y. ,  z),  and  w(x  -  x.,  y  -  y.,  z)  are  obtained 
from  Eqs.  (37) -(39)  with  the  replacement  of  x  by  x  -  x.,  and  y  by  y  -  y..  As  in  Eq. 
(41),  the  inequality 


z  >  z*  =  fi(x  "  xi>y  "  y{)  (48) 

must  also  be  satisfied. 

Precisely  the  same  considerations  concerning  the  calculation  of  the  wind  field 
apply  for  the  mountain  (valley)  ridge.  That  is,  Eqs.  (44)-(46)  give  the  velocity  of 
the  wind  field  when  x  and  y  are  replaced  by  x  -  x.  and  y  -  y.,  where  x.  and  y.  are 
the  coordinates  of  the  center  of  the  ridge  and  z  lies  above  the  ground. 
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As  demonstrated  in  Appendix  A,  the  theory  shows  that  the  principle  of  super¬ 
position  of  ground  disturbances  is  applicable  under  most  conditions,  the  exceptions 
to  which  are  subsequently  discussed.  What  this  means  is  that  in  a  region  where 
the  topography  can  be  described  by  the  equation 


* 


fi(X 


-xry- 


(49) 


where  f.(x  -  x.,  y  -  y.)  is  the  mathematical  description  of  a  particular  orographic 
feature  (referred  to  a  suitable  origin  whose  coordinates  are  x. ,  y.),  the  resulting 
velocity  field  can  be  written  as 


V 

u(x,y,  z)  =  ^  u./x  -  x.,y  -  y.,z^  , 


and 


v(x 


w(x 


,y,z)  ^  vi(x-x.,y-y.. 


Z)  - 


,y,z>  =Tw.(x-x.,y-y.,z 


(50) 


where  u.(x  -  x.,y  -  y.,z),  v.(x  -  x.,y  -  y.,z),  andw.(x  -  x.,y  -  y.,  z)  are  the  contri¬ 
butions  to  the  velocity  field  resulting  from  the  orographic  feature  whose  mathe¬ 
matical  description  is  given  by  f.(x  -  x.,  y  -  y.).  To  be  sure,  we  have  assumed  in 
this  model  that  the  topographical  description  can  be  resolved  into  combinations  of 
mountains,  valleys,  and  mountain  and  valley  ridges  whose  individual  mathematical 
description  is  given  by  Eqs.  (35)  or  (42)  with  h  either  positive  or  negative.  In  the 
event  that  this  is  not  feasible,  or  satisfactory,  the  user  can  use  the  general  tech¬ 
nique  as  outlined  in  Appendix  A  to  compute  the  wind  field  for  an  arbitrary  topograph¬ 
ical  description. 
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Thus  at  this  time  the  user  is  obliged  to  represent  the  topography  through  com¬ 
binations  of  the  four  features  just  discussed.  The  point  to  be  carefully  noted  is 
that  the  resulting  analytical  expression  for  the  topography,  which  will  be  of  form 
given  by  Eq.  (49),  should  as  closely  as  possible  resemble  the  terrain.  Suppose 
there  are  two  mountain  ridges  each  of  half  width  a  separated  by  a  distance  0  ,  as 
shown  in  Figure  8(a). 


RESULTING  SHAPE 
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Figure  8.  Mountain  Ridge  Separations 


If  0^  is  large  compared  to  a,  then  with  good  approximation  the  topography  can  be 


represented  by  the  equation 


* _ h _  _ h _ 

ZT  ~  ,  ,2,2*^,  ,2,2’ 

(  l)  / 


because  when  z„  is  evaluated  in  the  vicinity  of  the  second  mountain  ridge  (i.e. , 
x  «  x9)  the  contribution  from  the  first  term  is  negligible.  Evaluating  z^,  at  x  =  x2 
gives 


+  h  , 


1  +  /  a2 


which  if  D,  »  a  approximately  equals  h,  the  contribution  from  the  second  ridge 

only.  Now  consider  the  same  ridges,  but  this  time  separated  by  a  smaller  dis- 

* 

tance  9  (Figure  8(b)).  Equation  (51)  will  no  longer  be  adequate  because  z^(x  =  Xg) 
becomes 


1  + 


+  h  , 


which  can  be  significantly  greater  than  h  if  9^  is  not  very  much  larger  than  a. 
Thus  the  dashed  line  shown  in  Figure  8(b)  might  be  the  resulting  topographical 
shape  if  Eq.  (51)  were  used.  A  possible  method  for  circumventing  problems  of 
this  type  is  to  use  an  expression  of  the  form 


* 

ZT  - 


1+  (x'xi) 


2/a'2 


l+  (X-X2) 


2  ,  ,2 

/a' 


where  h'  and  a'  are  "adjusted"  parameters,  deduced  by  developing  a  best  fit  ap¬ 
proximation  to  the  actual  terrain. 

In  brief,  the  resulting  analytic  expression  for  the  topography  should  be  de¬ 
duced  by  a  "best  fit"  procedure. 

As  mentioned  earlier,  there  are  certain  limitations  of  the  model  which  the 
user  should  be  aware  of.  These  restrictions  are  basically  of  two  types  and  are 
concerned  with  the  extent  or  actual  size  of  the  orographic  flow  of  the  local  circula¬ 
tion  system,  and  the  shape  of  the  terrain.  These  aspects  of  the  problem  are  dis¬ 
cussed  in  detail  in  Appendix  A;  however,  a  summary  of  the  major  conclusions  is 
as  follows: 

1 .  Size  Limitations 

The  theoretical  model  is  based  upon  a  perturbation  treatment  of 
the  usual  hydrodynamic -thermodynamic  equations  under  the  assump¬ 
tion  that  an  adiabatic  atmosphere  prevails.  The  relationship  between 
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the  change  in  the  wind  field  Av(x,  y,  z)  and  the  curvature  of  the  terrain 
is  deduced  by  first  expressing  the  three  components  of  A  v  (namely 
Avj(x,y,  z))  in  a  spatial  Fourier  transform  representation, 

Av.(x,y,z)  =  j  A.(k)  e*~  ~  d3k  , 

and  then  solving  for  the  A.(k).  The  solution  for  the  A.(k)  involves  the 
derivation  of  the  dispersion  relationship  for  the  system,  which  basically 
connects  the  vertical  attenuation  constant  of  the  velocity  field  to  the 
periodicity  of  the  terrain.  This  relationship  is  of  the  form 


k  =  k  ( k  ,  k  \  , 
z  z(  x  y)  ’ 

and  becomes  greatly  simplified  for  (1)  short  wavelengths  and  (2)  when 
the  Coriolis  effect  is  neglected.  It  is  in  fact  these  simplifications  of  the 
dispersion  relationship  which  yield  the  relatively  simple  forms  of  the 
wind  fields.  The  short  wavelength  restriction  requires  that  the  area 
designated  as  a  local  circulation  region  be  no  greater  than  50  mi  in  one 
direction.  On  the  other  hand,  the  neglect  of  the  Coriolis  effect  requires 
that  the  extent  of  the  local  circulation  system,  L,  be  no  greater  than 


d  = 


24  u 


om  ’ 


(52) 


where  uom  is  the  unperturbed  wind  velocity  expressed  in  miles  per  hour. 
The  condition  for  which 


L  <  d  =  24  u 

om 

is  not  really  a  limitation  on  the  applicability  of  the  theory  for  fallout  pre¬ 
diction.  If  uQm  is  small,  the  perturbed  wind  velocity  will  also  be  small 
(as  shown  in  the  analysis)  and  terrain  effects  will  not  be  important  since 
the  motion  of  the  fallout  particle  will  be  essentially  vertical.  Thus,  the 
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expressions  derived  for  the  wind  field  by  applying  the  calculation  for 
short  horizontal  wavelengths  and  neglecting  the  Coriolis  effect  are  entirely 
justified  from  the  local  circulation  viewpoint.  For  all  practical  purposes 
the  requirement 


L  <  50  mi 


is  sufficient. 

2.  Shape  Limitations 

The  first-order  perturbation  theory  solution  is  only  approximate  and 
gives  increasingly  better  results  as  the  change  in  velocity,  A  v,  as  com¬ 
pared  to  uq  diminishes.  As  shown  in  the  analysis,  A  v  increases  with  a 
corresponding  increase  of  curvature  or  slope  of  the  terrain;  consequently, 
we  can  expect  uncertainties  between  the  unknown  exact  solution  and  the 
results  computed  from  the  first-order  perturbation  theory  to  also  increase 
with  an  increase  in  slope.  Roughly  speaking,  these  uncertainties  are  of 
the  order  |s|  ,  where  S  is  the  slope  of  the  terrain.  Clearly  then,  the 
model  should  not  be  used  when  S  is  very  large,  although  the  question  of 
"how  large"  is  not  yet  resolved.  We  have  been  able  to  partly  compensate 
for  the  inadequacies  of  the  calculation  for  the  case  of  a  mountain  ridge 
whose  Crestline  is  perpendicular  to  the  airflow,  and  we  suggest  that  the 
conclusions  drawn  from  this  investigation  be  extended  to  all  cases. 

Fundamentally,  we  have  found  that  the  first-order  perturbation  theory 
underestimates  the  vertical  lift  in  the  case  of  the  aforementioned  mountain 
ridge  (see  Appendix  A).  This  was  demonstrated  by  showing  that  the  cal¬ 
culated  surface  wind  trajectory  (which  for  the  exact  solution  should  be 
identical  with  the  contour  of  the  mountain  ridge)  actually  intersected  the 
ridge.  The  discrepancies  between  the  exact  and  calculated  surface  trajec¬ 
tories  increase  with  a  corresponding  increase  in  ridge  slope,  as  given  by 
the  ratio  of  the  maximum  elevation,  h,  to  the  half  width,  a. 


2f> 


S  =  (h/a)  . 


However,  by  performing  the  calculations  with  a  larger  slope. 


S'  =  h'/a  , 

where  h'  is  larger  than  h,  it  becomes  possible  to  make  the  calculated 
surface  trajectory  follow  the  mountain  ridge  contour.  Figure  9  shows  the 
relationship  between  the  actual  slope  S  and  the  required  slope  S'  whose 
use  will  partially  compensate  for  the  limitations  of  the  first-order  per¬ 
turbation  theory.  Thus,  if  |h|  is  the  actual  height  of  the  mountain 
(valley)  ridge,  the  calculations  should  be  performed  with  an  h'  given  by 

|h'|  =  | h |  (S'/S)  ,  (53) 

where  the  ratio  S'/S  is  evaluated  by  first  determining  S  (e.g.  point  A)  and 
then  finding  the  corresponding  value  of  S'  (point  B).  We  suggest  that  the 
modification  in  mountain  ridge  height,  as  given  by  Eq.  (53),  be  extended 
to  single  mountains  (valleys),  although  calculations  supporting  this 


Figure  9.  Slope  Compensation 
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conjecture  have  not  been  rendered.  The  modification  of  elevation  does  not 
alleviate  the  shortcomings  of  first-order  perturbation  theory;  consequently, 
we  further  suggest  and,  moreover,  stipulate  in  the  program  itself  that 
S'  <0.6. 

It  should  also  be  noted  in  passing  that  the  orographic  effects  extend 
indefinitely  in  altitude  as  can  be  seen  by  examining  the  mathematical  ex¬ 
pressions  for  the  components  of  wind  velocity.  However,  we  have  decided 
(based  on  a  few  sample  calculations)  to  limit  vertical  consideration  of  an 
orographic  region  to  three  times  the  height  of  the  highest  obstacle  in  the 
region. 

The  Sea  Breeze.  The  linearized  model  of  the  sea  breeze  as  developed  by  Defant 
has  been  selected  as  the  most  suitable  model  for  the  sea  breeze  for  two  reasons: 

(I)  it  gives  good  agreement  with  experimental  observation,  and  (2)  the  resulting 
analytical  expressions  for  the  components  of  the  sea  breeze  are  relatively  simple 

5 

from  a  computational  standpoint.  Defant  approaches  the  sea-breeze  circulation 
problem  in  the  sense  of  Lord  Rayleigh's  convection  theory,  the  dynamics  of  which 
are  governed  by  the  continuity  equation,  the  three  momentum  equations,  the  equa¬ 
tion  of  state,  and  the  heat-diffusion  equation.  By  neglecting  density  variations  in 
the  continuity  equation,  and  including  them  in  the  momentum  equations  since  they 
modify  the  action  of  gravity,  it  becomes  possible  to  construct  a  vorticity  function 
from  which  the  components  of  velocity  in  a  plane  perpendicular  to  the  coast  can  be 
determined.  Included  in  Defant's  model  is  the  assumption  of  an  infinitely  long  coast¬ 
line  which  points  in  the  y  direction;  variations  of  the  meteorological  variables  in  this 
direction  are  neglected.  The  x  axis  is  perpendicular  to  the  coast  and  positive  inland, 
while  the  z  axis  denotes  the  vertical. 

Figure  10  shows  the  typical  circulation  pattern  after  sunrise  when  viewed  along 
the  direction  of  the  coastline  (positive  y  axis).  In  addition  to  the  x-z  circulation 
there  is  an  accompanying  y  component  of  velocity  which  is  related  to  the  other  com¬ 
ponents  in  a  determined  way,  but  is  not  shown  in  the  figure.  The  driving  force  is 
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Ci  ivulation 


Figure  10.  Sea-Breeze  Circulation 

of  course  the  potential  temperature  differential  at  the  surface,  whose  behavior  with 
x  and  t  is  assumed  to  be  given  by 

d(x,z  =  0,  t)  =  sin  XxT(t)  ,  (54) 

where  X=  (n/ 2Lx)  and  T(t)  is  a  function  of  time  alone.  The  circulation  pattern  shown 
in  Figure  10  occurs  when  the  land  temperature  is  higher  than  the  water  temperature 
(discounting  the  lhr  or  so  lag  time  due  to  the  inertia  of  the  system).  A  positive  value 
of  T(t)  corresponds  to  the  surface  temperature  differential  profile  shown  in  Figure  11 


T 
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i 


Figure  11.  Temperature  Differential  Profile 
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According  to  the  theory  T(t)  is  expressible  as  a  Fourier  series  in  multiples  of  the 
sidereal  day  frequency,  ft.  That  is 


T(t)  ^  Tn  einm  ,  (55) 

n=  1 


where 

2*/0  iT 

Tn  =  fi(2ir)"1  J  T(t)  e'inf2t  dt  =  T*  e  n  (56) 

o 

* 

is  in  general  a  complex  quantity  with  amplitude  Tn  and  phase  r  .  In  addition  to 
specifying  the  extent  of  the  sea  breeze,  Lx>  and  T(t),  it  is  necessary  to  specify  the 
other  characteristic  physical  parameters  of  the  sea  breeze  which  include:  cr,  the 
Guldberg-Mohn  friction  parameter;  K,  the  thermal  eddy  diffusivity;  6 q,  the  average 
ground  temperature;  T  =  (d0Q/dz),  the  initial  unperturbed  temperature  gradient; 
and  sin  4> ,  where  </>  is  the  latitude  at  which  the  sea  breeze  is  occurring.  (A  more 
comprehensive  discussion  of  these  physical  parameters  and  their  relationship  to 
the  overall  structure  of  the  sea-breeze  circulation  is  available  in  Appendix  B.) 

The  expansion  of  T(t)  in  a  Fourier  series  results  in  the  following  expansion  of 
the  components  of  the  wind  field: 


u(x,y,  z,t) 


«n(x,y,  z,  t) 


(57) 


and 


(58) 


(59) 
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where  u^,  vn>  and  wr  are  the  partial  contributions  to  the  x,  y,  and  z  components 
of  the  wind  field  respectively  from  the  nth  harmonic.  These  quantities  are  essen¬ 
tially  given  by  Eqs.  (B.59),  (B.60),  and  (B.61)  of  Appendix  B,  but  can  be  simplified 
to  the  following  form: 


w  =  sin  XxJ 
n  nz 


k  z 

e  n  cos  ( nfit  +  b  ,z  +  0 
^  nl  ^n 


k  oZ 

e  n  cos  j'nOt  +  bn2  +  0 


(60) 


u  =  cos  XxJ 
n  nx 


k  z 

K  e  n  cos  ( n^t  +  b  z  +  0  +  T)  ,  \ 
nl  ^  nl  n  'nl ) 


Kn2e"2  cos  (not  *  tn2z  -  +  V) 


(61) 


and 


v  =  cos  XxJ 
n  ny 


K  .  e 
nl 


k  z 
nl 


cos  f  nSlt  +  b  .  z  +  0  +  t)  ,  +  n  ) 

^  nl  ^n  'nl  nj 


kn2Z 


-  Kn2  e  cos  ^nflt  +  bn0 z  +  0„  +  vn0  +  v 


'n2  vn  T  n2 


■)] 


(62) 


3|C 

The  constants  J  ,  J  ,  and  J  are  each  proportional  to  T  ,  the  magnitude  of  the 
nz’  nx  ny  n  & 

nth  temperature  harmonic,  and  like  all  the  mode -dependent  constants  appearing  in 
Eqs.  (60)-(62)  are  dependent  on  the  physical  parameters  of  the  sea  breeze.  The 
constants  knl>  Jbnl,  kn2,  bn2,  Knl,  Kn2,  r)nl>  7?n2>  and  are  completely  independ¬ 
ent  of  T*  or  r  ,  while  6  =  a  +  t  where  a  is  mode -dependent  but  otherwise  in- 
n  n’  ^n  n  n  n  ^ 

dependent  of  T^  or  t  . 
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Since  k  ,  and  k  .  are  negative,  all  the  components  of  the  sea  breeze  will  decay 
nl  n2 

with  altitude.  The  sea  breeze  does  not  have  a  precisely  defined  height  but  an  ef¬ 
fective  height  can  clearly  be  related  to  the  exponential  decay  constant.  Because  the 
first  harmonic  will  always  be  the  predominating  term,  we  have  decided  to  define 
the  height  of  the  sea  breeze  as  twice  the  reciprocal  of  the  minimum  of  [k  [  or 
|kn  |  .  Thus  H  ,  the  height  of  the  sea  breeze,  is  calculated  internally  and  the  user 
need  not  concern  himself  with  its  specification. 

It  is  appreciated  that  situations  can  arise  where  information  regarding  the 

internal  structure  of  the  predicted  sea  breeze  may  be  required.  For  this  reason 

provision  has  been  made  to  have  the  program  print  out  the  important  mode -dependent 

constants  and  H  . 

s 

We  shall  now  briefly  discuss  the  availability  of  the  physical  parameters  of  the 
sea  breeze.  A  summary  of  suggested  parameter  values  is  given  in  Table  3  (p.  110). 

L  ,  the  total  extent  of  the  sea  breeze,  is  twice  the  inland  or  seaward  extent  of 
the  sea  breeze  (in  our  sea-breeze  model  it  is  assumed  that  the  inland  and  seaward 
extent  of  the  sea  breeze,  as  measured  from  the  coastline,  are  equal).  The  dimen¬ 
sions  of  Lx  are  assumed  to  be  available. 

K,  the  thermal  eddy  diffusivity,  is  taken  to  be  a  space -independent  quantity  and 
as  such  its  precise  numerical  value  is  not  well  defined.  Measurements  of  K  can, 
however,  be  made,  and  from  them  a  suitable  average  value  deduced,  characteristic 
of  a  particular  situation. 

0  ,  the  average  ground  temperature,  can  be  determined  by  standard  techniques. 

Although  a,  the  Guldberg-Mohn  parameter,  does  describe  the  effect  of  viscosity 
on  damping  the  sea  breeze,  it  is  in  some  respects  a  device  for  incorporating  friction 
in  a  simplified  way  —  the  reason  being  that  it  leads  to  relatively  simple  mathematical 
descriptions  of  circulation  systems  which  appear  to  be  in  agreement  with  experiment. 
By  increasing  the  values  of  a  we  shorten  the  time  lag  between  the  maximum  tem¬ 
perature  and  the  maximum  wind  intensity  of  the  sea  breeze  and  also  decrease  the 
intensity  per  unit  of  temperature  differential.  For  instance,  in  calculations  per¬ 
formed  by  Defant,6  it  was  shown  that  holding  all  other  parameters  fixed  and  in¬ 
creasing  a  from  0  to  2.5  x  10-4  sec-1  shortened  the  time  lag  between  maximum 
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temperature  differential  and  the  maximum  wind  velocity  from  6.7  to  1.4  hr.  Con¬ 
currently,  for  the  same  temperature  differential,  a  factor  of  3  decrease  in  wind 
velocity  occurred.  The  value  of  a  to  be  used  in  a  given  situation  must  be  based  upon 
past  observations;  that  is,  the  sea-breeze  circulation  must  be  matched  with  the 
mathematical  model  by  adjustment  of  a.  There  are  to  our  knowledge  no  known  ex¬ 
perimental  methods  which  yield  a;  however,  suggested  values  are  given  in  Table  3 
(P-  HO). 

r,  the  vertical  temperature  gradient  of  the  unperturbed  atmosphere,  is  as¬ 
sumed  as  is  done  in  all  models  of  the  sea  breeze, to  be  positive. 

Tn  and  r  ,  the  amplitude  and  phases  of  the  temperature  harmonics,  are  input 
quantities  calculated  from  the  following  formulas.  Defining  certain  quantities  6n 
and  An  by  the  equations 

2tt/S2 

6n  =  (27r)  1  O  J  T(t)  cos  (ntlt)  dt  (63) 

0 

and 

2tt/Q 

An  =  (2,)-1  S2  J  T(t)  sin  (nft)  dt  ,  (64) 

0 


where  the  time  integration  extends  over  24  hr  beginning  at  1200  (noon)  local  time, 
gives 


(65) 


and 

Tn  =  tan"1  (V6n)  '  <66> 

It  is  assumed  that  the  meteorologist  who  is  using  the  sea-breeze  program  can  iden¬ 
tify  those  measurements  which  can  lead  to  the  designation  of  the  temporal  behavior 
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of  the  temporal  differential  T(t).  It  should  be  understood  that  the  time.t,  used  in 
the  sea-breeze  calculations  is  always  relative  to  local  noon  time. 


Besides  the  inherent  physical  parameters  just  described,  there  is  one  other 
parameter,  related  to  the  compatibility  of  the  geometric  description  of  the  sea- 
breeze  coastline  to  the  computer  program  grid  structure  requirements,  which  must 
be  discussed.  It  is  anticipated  that  in  any  real  situation  a  well-defined  coastline 
length  Ly  will  exist  for  the  sea  breeze.  Thus,  Lx,  Ly  and  ip,  the  angle  describing 
the  orientation  of  the  sea-breeze  coastline  with  respect  to  the  y-grid  axis,  Y  ,  es¬ 
tablish  the  horizontal  configuration  of  the  sea  breeze. 


For  computational  purposes  it  is  necessary  to  render  the  sea-breeze  geometry 
compatible  with  the  (X  ,  Y  )  grid  structure.  This  necessitates  redefining  the  extent 
of  the  sea  breeze  over  the  area  bounded  by  the  dashed  lines  (in  Figure  12)  with  maxi¬ 
mum  and  minimum  values  given  by  Y  ,  Y_ .  ,  X  ,  and  X  .  ,  which  are  deter- 
mined  by  esKhlishing  the  geometric  center  of  the  sea  breeze,  Lx,  Ly,  and  ip.  How¬ 
ever,  the  cr’lcj.ated  values  of  the  wind  field  are  strictly  defined  over  the  domain  of 

sea  breeze  as  determined  by  L  and  L  and  x-y  coordinate  system.  Thus,  we  must 

x  y 

extrapolate  the  calculations  into  the  stipled  and  hatched  areas.  Since  the  shore¬ 
line  is  assumed  infinite  in  extent,  it  is  theoretically  permissible  to  use  the  cal¬ 
culated  results,  as  they  are,  to  determine  the  wind  field  in  the  stipled  area.  On 
the  other  hand,  the  extrapolation  of  the  results  for  values  of  |  x|  >  (L ^/2)  is  not  im¬ 
mediately  obvious,  but  nevertheless  can  be  achieved  by  interpreting  the  sea  breeze 
as  a  circulation  cell  located  in  a  continuous  chain  of  circulation  cells.  However, 
this  is  only  an  approximation,  arising  from  lack  of  a  better  method  for  attacking 
the  problem.  The  degree  to  which  this  approximation  may  be  meaningful  is  un¬ 
resolved,  although  there  is  evidence  to  suggest  that  compensating  air  currents  flow 
in  regions  adjacent  to  the  sea  breeze.  If  the  sea  breeze  were  really  a  single  cell  in 
a  chain  of  circulating  cells,  then  the  sea-breeze  equations  as  already  derived  would 
suffice  to  determine  the  wind  field  beyond  |x|  >  (L ^ 2 )  because  of  the  x  periodicity 
of  the  system.  To  incorporate  the  idea  of  the  circulation  cells,  and  at  the  same 
time  provide  enough  flexibility  to  account  for  departures  from  the  idealiztion,  we 
have  decided  to  define  the  wind  field  in  the  hatched  region  by  the  relationship 


V(x,y,z,t)  = 


Vc(x,y,z,t) 


exp 


{-ka  [  I xi  -  (V2). 


1 

J 
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Yg  TRUE  NORTH 


Figure  12.  Geometric  Considerations  Related  to  the  Sea  Breeze 

where  Vc  is  the  calculated  wind  field  in  vector  form  whose  x,  y,  and  z  components 

are  given  by  Eqs.  (60)-(62),  and  k  is  an  attenuation  factor.  The  case  k  =  0  cor- 

3-  a 

responds  to  the  idealized  circulation  cell  system,  whereas  large  values  of  k  cor- 

a 

respond  to  attenuated  adjacent  circulation  cells.  The  computer  program  is  con¬ 
structed  so  that  the  present  method  of  extrapolation  can  be  changed  at  a  later  date. 

k  is  an  input  parameter  which  must  be  specified  by  the  user, 
a 
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Transport  in  a  Macrowind  Cell 


Particle  velocity  for  all  particle  transport  is  assumed  to  be  given  by  the  wind 
velocity  (three  dimensional)  at  the  particle  position  minus  the  still-air  particle 
settling  rate.  Within  macrocells,  particle  trajectories  are  taken  as  straight  lines; 
therefore,  particles  can  be  moved  from  one  boundary  to  the  next  in  one  computa¬ 
tional  step.  Such  boundary-to-boundary  transport  is  illustrated  in  two  dimensions 
in  Figure  13,  which  also  shows  the  boundaries  of  one  local  cell  superimposed  on 
the  macrostructure.  In  more  detail,  when  a  particle  intercepts  the  boundary  of  a 
macrocell,  the  computations  proceed  as  follows.  We  obtain  the  particle  velocity 
components  normal  to  the  boundary  planes  of  the  wind  cell.  We  then  compute  the 
time  at  which  a  boundary  intercept  would  occur  in  each  of  the  (three)  component 
directions.  The  earliest  of  these  (three)  intercepts  indicates  the  time  of  exit  and 
the  coordinates  of  the  exit  point  are  computed.  Transport  of  a  single  particle 


Figure  13 .  Boundary -to-Boundary  Transport  and  a  Mountain 

Wind  Cell 
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through  the  compartmented  macrowind  field  is  merely  an  iteration  on  this  s'ngle 
particle  —  single  cell  logic.  During  a  calculation,  complete  trajectories  are  com¬ 
puted  serially  for  individual  particles  between  major  time,  or  topography  boundaries, 
or  both.  The  exact  natures  of  these  boundaries  are  discussed  later. 

Transport  in  a  Local  Circulation  System 

When  a  particle  passes  into  a  local  circulation  system  cell  the  mode  of  trajec¬ 
tory  calculation  changes  from  that  used  in  the  macrowind-field  cells.  Within  local 
circulation  system  cells  it  is  possible  to  calculate  unique  wind  field  velocities  at  all 
points.  For  this  reason  particle  trajectories  are  computed  from  the  particle  veloc¬ 
ity  equations  using  point-slope  numerical  integration  with  a  constant  time  step.  The 
method  is  as  follows.  Suppose  after  n  time  steps  the  particle  is  at  location  (x^,  y  ,  z^) 

and  has  velocity  (v  ,  v  ,  v  ).  Then  to  determine  the  position  of  the  particles 
X)  n  y,  ft  z,  n 

at  the  n  +  1th  time  step,  for  example,  in  the  x  direction,  we  perform  the  computa¬ 
tion  xn+^  =  xn  +  vx  ^  At  (it  is  repeated  for  the  other  directions) .  The  magnitude  of 
At  is  determined  by  the  user.  The  point-slope  method  of  integration,  including  re- 

n 

striction  on  values  of  At,  is  discussed  by  Milne. 

Temporal  Variation  of  the  Wind  Field 

Temporal  variation  of  the  wind  field  is  achieved  by  periodically  replacing  the 
entire  wind  field  description  data  set.  The  period  of  data  replacement  is  variable 
and  each  replacement  interval  is  specified  by  the  user. 

Topography  Description 

Three  different  methods  of  specification  are  available.  First,  the  user  can 
specify  a  planar  deposition  surface  at  any  altitude  for  use  in  areas  not  covered  by 
local  circulation  cells.  Alternatively,  a  system  has  been  provided  to  allow  the 
user  to  specify  the  topography  in  a  piecewise-planar  manner  such  as  that  illustrated 
in  Figure  14.  A  grid  system  that  can  be  subdivided  indefinitely  to  yield  any  desired 
resolution  of  detail  is  used  to  achieve  the  desired  resolution  without  the  excessive 
redundancy  of  a  strictly  regular  grid.  Within  local  circulation  cells  other  topo¬ 
graphic  descriptions  must  be  used.  For  instance,  the  topography  of  mountains 
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Figure  14.  Piecewise -Planar  Topography  Specification  Below  the 
Macrowind -Fie Id  Volume  (numbers  are  surface  heights;  vertical 

scale  is  exaggerated) 

covered  by  a  mountain  wind  model  ce.i  is  described  by  an  analytical  mountain  shape 
function.  There  is  no  provision  in  the  model  to  account  for  shielding  effects  of 
highly  variable  terrain.  Additional  details  are  given  in  the  User  Information 
section  (p.  133  ff)  and  in  Appendix  C. 
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COMPUTER  PROGRAM  OUTLINE 

Description 

In  its  initial  form  the  DELFIC  system  is  designed  for  execution  on  the  IBM 
7094  computer  via  the  IBSYS-IBJOB  processor,  and  the  "overlay"  feature  is  used 
to  control  the  input  sequence  of  major  sections  of  the  system.  To  facilitate  dis¬ 
cussions  of  the  programs,  we  have  assigned  the  executive  programs  of  each  major 
section  the  names  LINK1,  LINK2,  .  . .  ,  which  are  more-or-less  indicative  of  their 
positions  in  the  computation  flow  sequence.  The  Transport  Module  essentially  con¬ 
sists  of  three  such  major  program  sections: 

LINK5  Initialization  and  control 

LINK6  Wind-field  description 

LINK7  Particle  transport. 

Figure  15  shows  the  arrangement  in  which  the  computa  ions  required  during 
the  transport  period  are  grouped  for  execution.  Note  that  final  exit  from  LINK5, 
the  transport  executive,  is  made  to  a  program  called  LINK8  —  the  output  processor. 
Figure  16(a)  is  a  flow  chart  of  the  general  program  logic  of  the  Transport  Module. 
This  simplified  representation  shows  in  some  detail  the  hierarchy  of  computation 
loops  that  make  up  the  transport  logic.  A  simpler  representation  of  this  hierarchy 
is  given  in  (b)  of  Figure  16,  which  shows  a  nested  set  of  five  loops.  In  the  outer¬ 
most  loop,  there  is  a  test  to  determine  if  the  specified  temporal  extent  of  the  trans¬ 
port  has  been  achieved;  if  not,  an  updated  version  of  the  wind-field  description  is 
computed.  In  the  next  lower  hierarchy  level  a  part  of  a  multipart  wind  field  de¬ 
scription  is  brought  into  the  computer  (if  a  multipart  description  is  in  use)  in  order 
to  transport  particles  which  have  gone  beyond  the  in-core  part  of  the  description. 

In  the  third  level  of  the  hierarchy  the  topographic  description  is  treated  like  the 
multipart  wind  description  (if  required).  In  the  particles  aloft  list  loop  individual 
particle  descriptions  are  given  sequential  attention,  and  in  the  actual  transport  code 
the  individual  fallout  particle  is  transported  until  it  reaches  either  the  ground  or 
some  boundary  at  which  in-core  data  are  insufficient  to  move  it  further. 
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(a) 


<b) 


Figure  16.  General  Flow  Chart  of  the  Transport  Module  (a) 
and  Transport  Module  Loops  (b) 


Figure  17  represents  schematically  the  flow  of  information  from  secondary  (tape) 
memory  to  primary  (core)  memory  and  back  during  an  extensive  run  of  the  trans¬ 
port  program.  Using  Figure  17  as  a  guide,  let  us  consider  the  sequence  of  data 
flows. 

Initially,  only  the  particles  (input)  and  topography  tapes  contain  any  information, 

and  only  the  transport  codes  themselves  are  in  primary  memory.  The  initialization 

and  control  program  (LINK5)  reads  identification  information  from  the  particles 

(input)  tape,  writes  comments  on  the  system  output  tape,  and  then,  if  required, 

* 

loads  the  topography  arrays  from  a  previously  prepared  topography  tape.  At  this 
point  the  wind-field  description  program  (LINK6)  is  called  and  a  wind-field  descrip¬ 
tion  is  generated.  This  description  is  generated  directly  (and  completely)  into  the 
wind  arrays  in  primary  memory  by  the  current  versions  of  LINK6,  However,  if 
future  requirements  warrant,  a  modified  version  of  LINK6  can  produce  a  more 
extensive  description  of  the  wind  field  and  be  forced  to  store  part  of  it  on  tape.  In 
either  case,  when  LINK6  is  completed,  the  wind  arrays  are  loaded  and  a  "map'1  of 
the  wind  tape  (if  any)  has  been  produced  and  stored  in  primary  memory. 

Next,  we  enter  LINK7,  the  actual  transport  program,  and  read  a  part  of  the 
particles  (input)  tape  into  primary  memory.  The  particle  descriptions  are  then 
transported  one  at  a  time  until  one  of  five  possible  conditions  arises.  These 
conditions,  which  may  be  thought  of  as  boundaries,  are 

1  The  particle  drifts  beyond  the  area  for  which  a  topographic  height 
has  been  specified  in  core.  In  this  case  the  particle's  description 
is  marked  so  that  it  will  be  eventually  written  onto  the  off-topo  tape 

2.  The  particle  drifts  beyond  the  region  for  which  the  wind  velocity  field 
has  been  specified  in  core.  In  this  case  the  description  is  marked 
to  go  on  the  out-of -wind-field  tape. 


* 

A  special  program  has  been  written  to  aid  the  researcher  in  preparing  topo¬ 
graphy  tapes  from  topographic  maps  or  other  sources  (see  Appendix  C).  The  user 
may,  however  specify  a  planar  topography  and  bypass  the  use  of  a  detailed  topo¬ 
graphic  tape 
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INPUTS 


Figure  17 .  Transport  Module  Data  Flow 


3.  The  particle  encounters  neither  of  the  previously  mentioned 
boundaries  and  is  still  aloft  at  the  time  when  the  wind-field 
description  must  be  updated  to  achieve  discrete  temporal 
variability  of  the  wind  field  In  this  case  the  description  is 
marked  to  go  on  the  time  boundary  tape. 

4.  The  particle  becomes  grounded  on  the  topography.  In  this 
case  the  particle  description  is  marked  so  that  it  eventually 
is  written  on  the  program  output  tape  which  is  used  as  an 
input  to  the  output  processor 

5.  The  particle  drifts  beyond  the  entire  secondary  as  well  as 
primary  memory  region  of  specification  for  either  topography 
or  winds  In  this  case  the  particle  is  labeled  as  a  "lost 
particle"  and  it  is  removed  from  the  transport  process. 

When  the  entire  block  of  descriptions  has  been  read  into  memory  and  processed  the 
next  block  of  particle  descriptions  is  read  into  memory  and  processed.  After  all 
particle  descriptions  on  the  original  input  tape  have  been  processed  treatment  of 
the  data  (if  any)  on  the  three  recirculation  tapes  begins.  First,  if  any  descriptions 
were  written  on  the  off-topo  tape,  a  new  block  of  topographic  data  is  read  in  and 
the  off-topo  tape  is  put  into  the  position  (symbolically)  of  the  original  particles 
input  tape.  Processing  continues  as  before,  and  eventually  the  condition  will  ob¬ 
tain  that  at  the  end  of  a  pass  no  descriptions  will  be  found  on  the  off-topo  tape 
Under  this  condition  we  next  consider  the  out-of -wind-field  tape  in  a  manner 
analogous  to  "off-topo.  "  The  treatment  given  to  the  time  boundary  tape  is  similar, 
but  when  all  particles  that  are  still  aloft  are  on  the  time  boundary  tape,  a  new 
description  of  the  wind  field  must  be  computed.  Before  each  call  of  the  wind-field 
program  (LINK6)  a  check  is  made  to  see  if  the  transport  time  limit  has  been 
exceeded,  and  if  it  has  been,  a  termination  procedure  is  executed  to  record  the 
final  status  of  memory. 

Table  1  is  a  summary  of  the  14  programs  of  the  Transport  Module.  Detailed 
discussions  of  these  programs  are  given  in  the  next  section. 
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TABLE  1 


A  SYNOPSIS  OF  THE  PROGRAMS  OF  THE  TRANSPORT  MODULE 


Name 

Called  By 

Purpose 

LINK5 

Executive  Program  M3* 

Transport  initialization  and  control. 

KDTOPO 

LINKS  and  LINK7 

Reads  a  block  of  topographic  data  into  core  memory. 

LINK6 

Executive  Program  M3* 

Calls  subroutine  MKWIND 

DUMPP 

LINK5  and  LINK7 

Makes  room  in  the  particle  array  for  a  block  of  N  new 
particle  descriptions  by  writing  a  set  of  particle 
descriptions  onto  some  memory  or  output  tape. 

MKWIND 

LINK5 

Updates  entire  wind  field  description  directly  into  the 
common  wind  field  arrays  of  the  Transport  Module.  It 
accepts  many  wind  vector  data  and  computes  a  spatially 
variant  wind  field  description  by  a  number  of  different 
methods  such  as: 

1.  Assign  to  the  wind  grid  point  the  vector 
at  the  nearest  data  points 

2.  Assign  to  the  wind  grid  point  a  distance 
weighted  average  of  the  vectors  at  the  N 
nearest  data  points 

3.  Fit  a  linear  model  to  the  N  nearest  data 
points  by  least  squares  and  use  that  model 
to  assign  the  vector  to  the  grid  point 

Provision  has  been  made  throughout  the  programming  for 
the  eventual  inclusion  of  a  system  for  the  use  of  a  volumi¬ 
nous  wind  field  description  recorded  on  and  retrieved  from 
a  secondary  memory  system  such  as  magnetic  tape  or  disk. 

RDCIRS 

MKWIND 

Reads  data  which  describe  any  local  circulation  system 
which  may  exist.  These  data  state  the  size  and  location  of 
each  local  circulation  cell  and  identify  the  computation 
program  which  is  to  be  used  within  each  cell. 

LINK  7 

Executive  Program  M3 

Transports  all  input  particle  descriptions  through  the 
specified  wind  field. 

FALRAT 

LINK7 

Computes  settling  rate  for  a  particle  as  a  function  of 
particle  size  and  altitude. 

HEIGHT 

LINK7 

Retrieves  the  height  of  the  topography  for  the  position  of 
the  current  particle  from  the  topographic  data  arrays. 

LOTRAN 

LINK7 

Transports  a  particle  within  or  above  a  local  circulation 
system  cell. 

MTWND1 

LINK7  and  LOTRAN 

A  dual  purpose  subroutine  which  (1)  reads  the  data  that  is 
needed  by  the  MTWND1  (mountain  wind)  program 
and  carries  out  those  computations  that  are  invariant  with 
position,  or  (2)  computes  wind  vectors  at  specified  positions 
within  the  MTWND1  cell. 

RGWND1 

LINK7  and  LOTRAN 

Like  MTWND1  but  for  the  analytical  ridge  wind 
model. 

CBREZ1 

LINK7  and  LOTRAN 

Like  MTWND1  but  for  the  analytical  sea  breeze  wind 
model. 

GETWND 

LINK7  and  LOTRAN 

Retrieves  the  appropriate  wind  vectors  from  the  macro- 
wind-field  description  arrays. 

*See  DASA-1800-vn  (Operator's  Manual). 


Program  Discussion 


In  this  section  we  present  a  detailed  description  of  each  of  the  executive 

* 

programs  and  subroutines  of  the  Transport  Module  Each  program  description 
is  headed  by  the  program  name,  its  call  list  (if  any),  and  flow  chart  (FC)  number 

Subroutine  FALRAT  (ALT,  PSIZE,  FV,  ATEMP,  RHQ.  FROG,  ISOUT)(FC-l) 

This  subroutine  computes  the  settling  rate  of  a  particle  at  height  ALT  in  an 
atmosphere  for  which  the  density  and  dynamic  viscosity  are  tabulated  in  arrays 

RHO  and  ATEMP  respectively  These  tabulations  must  be  for  200  m  intervals 

t  2 

starting  from  1000  m  below  MSL,  '  Fall  rate  equations  derived  by  Davies  are 

used  All  units  are  in  the  meter-kilogram-second  (mks)  system  except  for  PSIZE, 

the  diameter  of  the  particle,  which  is  in  microns  and  FROG,  which  is  the  pre- 

-8 

computed  product  4/3*g*ROPART*10  where  ROPART  is  the  density  of  fallout 
particles  (mks)  and  g  is  the  acceleration  of  gravity  (mks) 

The  Davies  equations  which  are  functions  of  the  quantity  C„R2  are  valid  over 

2  2  U 
separate  ranges  of  CL.R  ,  The  separation  occurs  at  C„R  -- 140  An  overall 
2  u  7  4) 

upper  limit  of  CpR"1  =  4.  7  x  10  is  imposed  by  Davies  for  the  validity  of  his 

equations.  However,  for  lack  of  an  appropriate  substitute  for  use  in  computing  the 

settling  rate  for  particles  which  exceed  this  limit,  we  have  chosen  to  use  Davies 

2  7 

equation  for  cases  where  C^R  >  4.  7  x  10  The  program  will  record  an  indication 
that  the  limit  was  exceeded  for  each  case  encountered 

The  computation  proceeds  in  the  following  manner.  After  locating  the  particle 

t  2 

in  one  of  the  atmospheric  layers,  the  program  computes  CDRR(C^R  )  and  several 
intermediate  parameters  Next  CDRR  is  tested  to  determine  which  expression  is 
to  be  used  for  the  terminal  velocity..  If  the  upper  range  is  used,  a  check  is  made 
to  determine  if  CDRR  >*'  7x  10^.  If  this  is  so,  the  printout  "DAVIES  EQUATIONS 
ARE  INACCURATE  FOR  PSIZE  MICRONS  AT  ALT  METERS"  is  made  PSIZE 
refers  to  particle  diameter  in  microns  and  ALT  refers  to  particle  altitude  in  meters 
Then,  the  settling  rate  of  the  particle,  FV,  is  computed  Finally,  a  drag  slip 
correction  in  the  form  of  Cunningham’s  factor  (see  Appendix  B  of  Ref  1)  is  applied 
to  FV  and  control  is  returned  to  the  calling  program 
if 

There  are  numerous  error  checks  throughout  the  programs  that  result  in 
calls  to  subroutine  ERROR  when  termination  is  required  A  full  description  of 
subroutine  ERROR  is  included  in  DASA-1800-VII  (Operator's  Manual) 

1* 

The  atmosphere  structure  defined  for  the  cloud- rise  computations  is  used 
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Subroutine  DUMPP  (FC-2  and  FC-3) 

This  subroutine  along  with  parts  of  the  main  programs  of  LINK5  and  LINK7 
manages  the  system  of  primary  (core)  and  secondary  (tape)  memory  that  is  used  to 
record  descriptions  of  particles  (central  particles  of  cloud  subdivisions)  during 
transport,  DUMPP  serves  to  select  and  write  one  or  more  of  the  subsets  of  the 
particle  descriptions  (defined  in  Table  2)  in  primary  memory  onto  some  secondary 
memory  or  output  tape  and  thus  to  make  room  available  in  primary  memory.  As 
one  of  its  inputs  DUMPP  accepts  the  number  (N)  of  particle  descriptions  for  which 
room  must  be  prepared  in  primary  memory.  It  does  not  return  until  at  least  N 
blank  lines  have  been  made  available  in  the  top  (low-numbered  end)  of  the  particle 
description  arrays.  DUMPP  begins  by  selecting  for  dumping  onto  tape  that  set  of 
particles  which  is  considered  best  from  the  point  of  view  of  machine  efficiency.  In 
general,  the  largest  set  is  considered  to  be  best  to  dump  because  of  the  time  re¬ 
quired  to  put  a  tape  drive  into  motion.  However,  an  exception  is  made  for  the  class 
of  grounded  particles,  since  they  will  be  written  on  the  transport-output  tape 
(IPOUT)  and  will  never  be  recirculated  into  the  primary  memory;  therefore,  when¬ 
ever  dumping  the  set  of  grounded  particles  would  make  sufficient  room  available 
(counting  those  lines  that  are  already  blank)  for  N  incoming  particle  descriptions, 
the  set  of  grounded  particles  is  dumped.  Before  the  actual  dumping  occurs,  the 
particle  description  in  core  storage  is  reordered  so  that  all  descriptions  to  be 
dumped  are  located  in  a  solid  block  beginning  at  the  top  of  the  particle  descriptions 
array,  and  all  particle  descriptions  that  are  to  remain  in  core  are  moved  below 
this  block.  The  dumping  operation  then  is  executed,  and  finally  a  block  of  blanks 
(empty  spaces)  large  enough  to  receive  the  incoming  particles  is  prepared  at  the 
top  of  the  particle  descriptions  array. 

The  main  transport  loop  (in  LINK7)  passes  sequentially  across  the  list  of 
particle  descriptions  which  consist,  for  the  Jth  particle,  of  three  spatial 
coordinates  XP(J),  YP(J),  and  ZP(J);  a  time  coordinate  TP(J);  a  particle  size 
PS(J);  and  a  mass  per  unit  area  FMAS(J).  At  the  end  of  its  pass  the  main  transport 
will  have  marked  each  of  the  descriptions  to  indicate  its  membership  in  one  of 
the  five  classes  listed  in  Table  2.  To  avoid  the  use  of  another  array  of  data,  the 
sign  bit  of  FMAS(J)  and  the  sign  and  magnitude  of  the  time  coordinate  TP(J)  are 
used  to  record  the  class  of  the  description  as  indicated  in  Table  2, 
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TABLE  2 


Referring  to  the  general 
and  the  deailed  flow  charts  of 


PARTICLE  CLASSIFICATION  IDENTIFIERS  USED  BY  DUMPP 

subroutine  DUMPP  (FC-2, 
and  FC-3,  respectively),  we 
shall  next  consider  its  opera¬ 
tion.  First  by  comparing  N, 
the  number  of  incoming  parti¬ 
cle  descriptions,  with  NFREE, 
the  current  number  of  blank 
lines  in  the  arrays,  we  can 
immediately  determine  whether 
any  descriptions  must  be 
dumped.  If  none  need  be 
dumped,  we  set  JTEST  =  0  to 
indicate  that  no  blanks  are  known  to  already  be  at  the  top  of  the  particle  arrays  and 
then  transfer  to  152  where  the  needed  number  of  blank  lines  are  brought  to  the  top 
of  the  arrays  from  wherever  they  may  be  within  them.  If  some  particles  must  be 
dumped,  we  transfer  to  151  to  determine  which  set  to  dump. 

At  151  we  determine  if  the  number  of  particles  in  the  grounded  set  plus  the 
number  of  blank  lines  in  total  provide  enough  space  for  the  block  of  N  particles 
which  are  to  come  in.  If  they  do,  we  set  the  parameters  JTEST  =  1  and  JTEST  =  NG 
to  indicate  respectively  the  class  of  particles  to  be  dumped  and  the  size  of  that  class. 
Then  a  transfer  is  made  to  18  where  other  preparations  are  made  to  carry  out  the 
dump.  If  a  larger  dump  is  required  to  yield  N  empty  spaces,  the  set  with  the  largest 
membership  is  selected  and  JTEST1  (see  Table  2)  and  JTEST  are  set  appropriately. 

At  18  a  safety  test  leading  to  an  error  stop  is  carried  out  followed  by  a  thres¬ 
hold  test  on  the  size  of  the  set  to  be  dumped.  Because  a  limit  exists  on  the  size  of 
any  particle  block  read  by  the  output  processor  (see  DASA-1800-VI),  and  also  be¬ 
cause  we  must  impose  block  size  control  to  allow  for  recirculation  of  data  during 
transport  itself,  a  maximum  block  size  is  defined  within  the  LINK5  program.  No 
block  larger  than  NBMAX  will  be  written  by  DUMPP. 


Class 

FMAS(J) 

TP(J) 

JTEST1 

- 

Blank 

0 

Not  Used 

Grounded  particles 

-FMAS(J) 

-TP(J) 

1 

Lost  particles.  These  are  particles 
that  have  gone  beyond  the  complete 
wind  field  or  topographic  description 

-FMAS(J) 

TLIMIT 

2 

Topography  boundary  particles. 

These  are  particles  at  the  limit  of 
the  in-core  topography 

+  FMAS(J) 

-TP(J) 

3 

Time  boundary  particles.  These  are 
particles  at  the  time  limit  for  the 
in-core  wind  field 

+FMAS(J) 

ENDTIM 

4 

Wind-field  boundary  particles.  These 
are  particles  at  the  spatial  limit  of  the 
in-core  wind  field 

-FMAS(J) 

+TP(J) 

5 
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At  181  the  program  branches,  on  the  basis  of  the  class  of  particles  to  be 
dumped  (JTEST1),  to  a  code  that  appropriately  sets  a  group  of  assigned  go-to 
statements  and  tape  name  parameters  for  use  within  the  code  that  actually  selects 
particle  descriptions.  Also  at  these  points,  the  appropriate  class  count  (NG, 

NLOST,  NTO,  NTI,  or  NW)  is  decreased  in  accordance  with  the  number  of  des¬ 
criptions  about  to  be  dumped. 

At  99  a  one-line  summary  printout  of  information  on  the  particle  block  to  be 
dumped  and  of  the  particle  counts  is  executed.  Specifically  this  output  consists 
of  the  following  data  in  order  of  printing  from  left  to  right:  JTEST,  JTEST1,  and 
the  current  (predump)  values  of  the  in-core  counts  for  blanks,  grounded  particles, 
lost  particles,  topography  boundary  particles,  time  boundary  particles,  and  wind- 
field  boundary  particles.  Then  we  set  certain  parameters  that  are  used  within  the 
loop  that  actually  sorts  the  particles  to  be  dumped  into  the  top  of  the  particles  array. 
That  loop,  beginning  at  98,  first  classifies  a  line  in  the  particle  array  into  one  of 
three  classes:  blank,  to  be  dumped,  or  not  to  be  dumped  Classification  is  done  by 
a  set  of  assigned  go-to  statements.  After  this  three-way  classification,  various 
actions  occur  in  such  a  way  to  provide  the  needed  sort  into  a  contiguous  block  with 
something  close  to  the  theoretically  minimum  number  of  word  movements,  The 
particle  classification  and  sorting  code  is  logically  complex  and  should  be  modified 
only  with  great  caution. 

At  1102  the  sort  is  completed  and  all  class  indicator  signs  are  set  positive  in 
preparation  for  actual  dumping  In  the  case  that  lost  particles  are  to  be  dumped, 
the  control  parameter  I£(8)  is  tested  to  determine  if  printed  listings  of  lost  parti¬ 
cles  are  requested.  If  IC(8)  =0,  the  lost  particle  count  and  particle  descriptions 
(XP,  YP,  ZP,  TP,  PS,  and  FMAS)  for  the  complete  block  are  written  on  the  IBSYS 
output  tape  for  printing,  If  IC(8)  /  0,  this  printing  is  deleted  In  any  case,  no  further 
dumping  action  is  required  for  lost  particles.  For  all  other  classifications  of  parti¬ 
cles,  the  block  of  particle  descriptions  is  written  on  the  appropriate  binary  auxiliary 
tape  following  its  block  count 

At  154  additional  sorting  is  done,  if  necessary,  to  prepare  a  solid  block  of  blanks 
at  the  top  of  the  particles  description  array  that  is  large  enough  to  receive  the  incom¬ 
ing  block  of  particle  descriptions  This  is  done  by  interchanging  locations  of  particles 
that  lie  above  the  block  boundary  with  blanks  that  lie  below  it. 
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(a) 

FC-3.  Detailed  Flow  Charts  for  Subroutine  DUMPP 


FC-3.  (Continued)  Detailed  Flow  Charts  for  Subroutine  DUMPP 
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FC-3.  (Continued)  Detailed  Flow  Charts  for  Subroutine  DUMPP 


FC-3.  (Continued)  Detailed  Flow  Chart  for  Subroutine  DUMPP 
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(e) 

(Continued)  Detailed  Flow  Chart  for  Subroutine  DUMPP 


Subroutine  RDTOPO  (no  flow  chart) 

This  subroutine  is  used  by  both  LINKS  and  LINK7  to  read  topographic  data 
from  the  topographic  data  tape  IHTOPO.  The  contents  of  tape  IHTOPO  are 
described  in  detail  in  the  User  Information  section,  and  the  FORTRAN  variables 
referred  to  below  are  defined  there. 

For  each  block  of  topography  data  to  be  read,  subroutine  RDTOPO  checks  the 
values  of  II,  JJ,  and  KK  to  determine  whether  they  are  within  the  prescribed 
range  of  values  to  avoid  the  possibility  of  an  overflow  in  core  storage  beyond  the 
space  reserved  for  the  arrays.  If  an  error  is  found,  the  comment  —  INCORRECT 
TOPO  TABLE  OF  CONTENTS  — is  made  and  execution  of  the  run  is  terminated. 

If  satisfactory  values  of  II,  JJ,  and  KK  are  found,  the  arrays  S  and  SUBSID  are 
read  into  core  memory  from  tape  IHTOPO,  and  control  is  returned  to  the  calling 
program. 

Subroutine  LINKS  (FC-4  and  FC-5) 

This  program  acts  as  an  initializer  and  controller  for  the  Transport  Module. 

Upon  the  first  entrance  to  LINK5  it  initializes  parameters  and  reads  the  following 

information  from  the  IBSYS  input  tape:  a  transport  identifier,  transport  control 

data  (array  1C(J)),  and  the  transport  time  limit  (TLIMIT).  Based  on  the  control 

data  LINKS  next  rewinds  only  those  tapes  that  may  be  used  during  transport.  If 

a  piecewise-planar  topography  tape  is  to  be  used,  its  identifier  is  next  read  and 

checked.  If  the  wrong  tape  has  been  mounted,  a  comment  is  written  and  the 

program  awaits  operator  action  before  trying  again.  Next,  the  tape  of  particles, 

* 

IPARIN,  ready  for  transport  is  checked  in  a  manner  similar  to  that  used  on  the 
topography  tape.  When  found  to  be  correct  the  program  next  reads  from  this  tape 
(IPARIN)  a  number  of  data  sets  that  are  needed  by  either  transport  or  the  output 
processor,  or  both.  Included  in  these  data  sets  are:  detonation  parameters;  the  Cloud 
Rise-Transport  Interface  Module  run  identifier;the  cloud-rise  identifier;  the  detonation 
identifier;  the  fallout  particle  density;  tabulated  distributions  of  particle  mass, 
activity  (optional),  and  surface-to-volume  ratio  as  functions  of  particle  diameter; 
and  a  tabulated  atmospheric  description  that  consists  of  viscosity  and  density 
versus  altitude. 

*Tape  IPARIN  has  been  prepared  by  the  Cloud  Rise-Transport  Interface  Module. 
See  DASA- 1800-111. 
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Next  a  parameter  (FROG)  is  computed  that  is  required  by  the  particle  setting 
rate  computations  (subroutine  FALRAT).  Then  if  a  piecewise -planar  topography 
tape  is  not  to  be  used,  a  height  is  read  and  stored  for  use  as  the  height  of  a  fully 
planar  topography  and  a  transfer  is  made  to  statement  205  where  wind  data  are  read. 
On  the  other  hand,  if  a  piecewise-planar  topography  is  to  be  used,  its  identifier  and 
table  of  contents  are  read  from  the  tape  IHTOPO,  The  parameter  HTOPO  is  set  at 
the  highest  topographic  height  on  the  whole  tape  and  the  first  topo  data  block  is  read 
by  calling  subroutine  RDTOPO, 

At  205  the  program  reads  a  wind-field  data  set  identifier  from  the  system  in¬ 
put  tape  and  transfers  to  the  transport  output  tape  (IPOUT)  all  identifiers  and 
descriptive  tables  required  by  the  output  processor  Next  LINK5  prints  a  title  page 
for  the  transport  run  including  identifiers  and  atmospheric  data  and  then  transfers 
to  200  where  the  transport  executive  begins. 

Statement  200  is  the  place  to  which  control  is  immediately  transferred  upon 
any  entrance  to  LINK5  except  for  the  first.  At  200  TLIMIT  and  ENDTIM  are 
compared  to  determine  if  the  processing  of  the  Transport  Module  has  been  com¬ 
pleted.  Note  that  transport  is  considered  to  be  unfinished  so  long  as  ENDTIM,  the 
time  at  which  the  current  wind  field  must  be  updated  is  not  greater  (later)  than  the 
user-specified  time  of  transport  cutoff  (TLIMIT),  (ENDTIM  is  initialized  to  0.  0  on 
the  first  pass  through  LINK5.  It  is  assigned  its  true  value  by  the  wind  description 
program  MKWIND  which  is  called  by  LINK6,  subsequent  to  LINK5.  when  LINK5  has 
set  IEXEC  -  1  at  statement  number  400, ) 

When  transport  has  been  completed,  LINK5  sets  N  -  NALOFT  and  calls  DUMPP 
to  dispose  of  any  particle  descriptions  that  may  remain  within  core  memory.  Next, 
if  any  particles  remain  on  the  time  boundary  tape  they  are  read  in  and  printed  as 
lost  particles  for  the  benefit  of  the  user.  Finally  at  501  the  terminating  zero  is 
written  on  the  transport  output  tape  (IPOUT)  the  comment  —  TRANSPORT  IS 
COMPLETED  etc,  —is  written  and  the  executive  control  word  IEXEC  is  set  to 
zero  to  cause  a  transfer  to  LINK8  of  the  Output  Processor  Module  (see  DASA- 
1800-VI.  > 
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FC-4.  General  Flow  Chart  for  Subroutine  LINK5 
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(a) 

FC-5.  Detailed  Flow  Charts  for  Subroutine  LINK5 


Co) 

FC-5.  (Continued)  Detailed  Flow  Charts  for  Subroutine  LINK5 
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208 


DETONATION  PARAMETERS 
READ  FROM  IPARIN:  FW.  SSAM.  SLDTMP,  TM3D.  SIGMA,  «PAHR1. 

TW,  HOB,  NSP,  XG2,  YG2,  TGZ,  BZ,  NCL,  RADMAX 

INTERFACE  IDENTIFIER 
PSEID(J),  J  -  I,  12 
CLOUD  RISE  IDENTIFIER 
CRID(J),  J  -  1.  12 
DETONATION  IDENTIFIER 
DETID(J),  J  -  1,  12 
FALLOUT  PARTICLE  DENSITY 

- ROTA  R  IT - 

NUMBER  OF  PARTICLE  SIZE  RANGES 

S7T3 

PARTICLE  SIZE.  MASS  IN  RANGE.  PARTICLE  ACTIVITY 
ARRAY  {OPTIONAL}.  StmFACE-tO-VOLUMg  RATl6  ~~ 
PS(I).  VY(I),  VZfl),  VX(J),  I  -  1,  NPS 


NUMBER  OF  ATMOSPHERIC  STRATA 
NA 


ATMOSPHERIC  VISCOSITY  AND  DENSITY 
ATEMP(J),  RHO^J),  J  -  1.  NA 


PRECOMPUTE  A  CONSTANT 

FOR  FALL  RATE  CALCULATION 

READ  A  SINGLE 
TOPO  HEIGHT 
FROM  SYSTEM 
INPUT  TAPE 
AND  RECORD 
IT  IN  TTOPO 


READ  TOPO  IDENTIFIER  FROM 
IHTOPO 

<TOPID(J),  J  «1.  12) 


READ  TOPO  TABLE  OF 
CONTENTS  FROM  IHTOPO 
ARRAYS  TOPOLM  AND  ITOPLM 


FIND  HIGHEST  TOPO 
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(c) 

FC-5.  (Continued)  Detailed  Flow  Charts  for  Subroutine  LINK5 
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FC-5.  (Continued)  Detailed  Flow  Charts  for  Subroutine  LINK5 


Subroutine  LINK6  (no  flow  chart) 

This  program  merely  calls  subroutine  MKWIND,  the  wind-field  description 
subroutine.  It  has  been  left  as  a  separate  subroutine  in  anticipation  of  its  use  as  a 
branch  point  to  select  the  desired  program  to  be  used  for  the  wind-field  description. 

Subroutine  RDCIRS  (FC-6) 

The  purpose  of  this  subroutine  is  to  read  a  set  of  data  which  describes  the 
geographical  limits  of  the  area  covered  by  each  of  the  local  circulation  systems 
that  are  to  be  used  within  the  transport.  Also,  the  identification  number  (NCRTYP(K)) 
for  the  computation  code  (local  circulation  model)  applicable  within  each  of  the  local 
circulation  cells  is  read.  At  the  time  of  this  writing  only  three  types  of  local  cir¬ 
culation  systems  are  used: 

Identification 

Number  Program  to  be  Used  Model 

1  MTWND1  Mountain  wind 

2  RGWND1  Ridge  wind 

3  CBREZ1  Sea  breeze 


The  data  are  read  from  the  IBSYS  input  tape,  one  card  image  at  a  time,  with 
all  data  pertaining  to  the  Kth  local  circulation  area  appearing  on  the  same  card.  A 
count  of  card  images  read  is  accumulated  in  variable  K  and  reading  is  terminated 
whenever  a  blank  card  (NCRTYP(K)=  0)  is  encountered.  At  this  time  the  number  of 
local  cells  for  which  data  have  been  read  is  stored  in  NLOCIR  and  a  return  is  made 
to  the  calling  program.  An  error  stop  occurs  whenever  a  circulation  code  identifier 
(NCRTYP(K))  which  is  either  negative  or  greater  than  5  is  encountered. 

Subroutine  MKWIND  (FC-7  and  FC-8) 

This  subroutine  forms  and  stores  in  core  a  horizontally  and  vertically  variant 
wind  description  on  the  basis  of  inputs  from  the  IBSYS  input  tape.  Inputs  are  as 
follows: 


READ  FROM  INPUT  TAPE  CRMINX(K)P  CRMAXX(K) 
CRMINY(K),  CRMAXY(K),  NCRTYP(K) 


FC-6.  Flow  Chart  for  Subroutine  RDCIRS 


1.  Control  variables  ENDTIM,  which  gives  the  time  at  which 
wind  field  to  be  constructed  from  the  following  data  ceases 
to  be  valid;  ALPHA  and  BETA,  which  are  weighting  param¬ 
eters  to  be  applied  to  vertical  and  horizontal  distances  (see 
Eq  (21)  ff. );  NN,  which  specifies  the  number  of  nearest 
vectors  to  be  used  in  estimating  the  wind  vector  at  a  grid 
point;  and  NCODE,  which  identifies  the  desired  computational 
option, 

2.  Specifications  for  constructing  the  wind-field  grid  for  the 
Jth  vertical  stratum  in  the  form  BOTHIT(J),  WGRINT(J), 

WLLX(J),  WLLY(J),  WURX(J),  and  WURY(J);  BOTHIT(J) 
is  the  height  of  the  bottom  of  the  Jth  stratum,  WGRINT(J) 
is  the  grid  interval  to  be  used  in  the  Jth  stratum,  and 
WLLX(J),  WLLY (J),  WURX(J) ,  WURY(J)  are  lower  left 
comer  and  upper  right  corner  limit  coordinates.  Note  that 
each  stratum  specification  is  independent  of  all  others.  The 
specification  input  is  terminated  when  a  value  BOTHIT(J)> 

999999.  0  is  encountered. 

3.  Wind  vector  data  from  which  the  wind  field  is  to  be  constructed: 

ZS(K),  XS(K),  YS(K),  SX(K),  SY(K),  and  SZ(K);  ZS(K)  is  the 
height  of  the  Kth  vector,  XS  is  the  east-west  coordinate  of 

the  Kth  vector,  YS  is  the  north-south  coordinate  of  the  Kth 
vector,  SX(K)  is  the  eastward  component  of  the  Kth  vector, 

SY(K)  is  the  northward  component  of  the  Kth  vector,  and 
SZ  (K)  is  the  upward  component  of  the  Kth  vector.  The 
vector  reading  operation  is  terminated  when  a  value 
ZS(K)  >  999999.  0  is  encountered. 

A  wind-field  tape  IS  NOT  WRITTEN  by  this  program.  Flowchart  FC-7  is  a 
functional  flow  chart  of  this  program  that  shows  how  the  four  available  computation 
options  are  arranged  to  use  much  of  the  same  code.  Flow  chart  FC-8  presents 
the  details  of  the  subroutine  and  may  be  used  to  follow  the  ensuing  discussion. 
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FC-7.  Organizational  Flow  Chart  for  Subroutine 

MKWIND 
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FC-8.  Detailed  Flow  Charts  for  Subroutine  MKWIND 
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In  the  beginning  the  parameters  ENDTIM,  ALPHA,  BETA,  NN,  and  NCODE 

are  read  from  the  IBSYS  input  tape.  If  NN  is  zero  or  negative,  an  error  stop  is 

* 

printed  and  the  program  terminates;  with  NN  positive,  the  program  transfers  con¬ 
trol  to  2041  where  it  begins  reading  the  deck  of  data  in  which  the  user  specifies  the 
wind-field  subdivision  structure  that  he  wishes  the  program  to  use.  This  reading 
operation  continues  until  a  card  having  the  value  999999.  0  in  the  field  BOTHIT(J)  is 
encountered.  If  such  a  card  is  not  encountered  before  more  than  NSTRAT  (speci¬ 
fied  in  LINK6)  cards  have  been  read,  an  error  comment  will  be  written  and 
processing  will  be  continued.  When  the  deck  ending  card  (BOTHIT(J)  =  999999.  0) 
is  encountered,  the  variable  JTOPJ  is  set  to  the  number  of  stratum  specifications 
that  have  been  read.  At  statement  1054  the  data  just  read  are  arranged  into  ascend¬ 
ing  order  of  stratum  base  altitude  (BOTHIT(J))  by  a  pair  comparison  replacement 
sort.  If  during  the  sort  two  specifications  are  found  for  the  same  altitude,  a  comment 
is  printed  and  an  error  stop  occurs. 

When  the  program  reaches  statement  number  1055  the  sort  of  stratum  speci¬ 
fications  is  complete  and  the  program  begins  to  read  a  deck  of  wind  vector  data. 

This  read  operation  is  of  the  same  form  as  the  read  of  stratum  specifications,  but 
the  count  of  data  vectors  is  recorded  in  the  variable  JTOPV.  If  at  the  end  of  the 
vector-read  operation  the  number  of  vectors  read  does  not  exceed  NN,  the  speci¬ 
fied  number  of  nearest  data  vectors  to  be  used  in  the  computation  of  each  wind  cell 
vector,  NN  is  reset  to  JTOPV  and  the  computations  will  continue  after  a  comment 
is  written. 


* 

The  use  of  NN  with  the  preferential  weighting  method  is  somewhat  redundant 
in  that  the  weighting  procedure  automatically  limits  consideration  to  only  those 
observations  that  lie  within  specified  distances,  horizontal  and  vertical  distances 
being  specified  independently  of  the  wind-field  grid  points.  Normally  one  should 
specify  NN  to  equal  the  total  number  of  input  wind  vec  tor  observations  when  the  pre¬ 
ferential  weighting  method  is  used.  In  any  case,  only  the  NN  wind  vectors  closest 
to  each  grid  point  will  be  used  in  determining  each  wind  field  vector. 
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Continuing  from  statement  106,  the  program  determines  if  0  <  NCODE  £  6  and, 
if  so,  branches  on  NCODE  to  make  preparations  for  further  processing  by  the 
chosen  computation  method  {see  flow  chart  FC-9  and  Table  8).  After  all  transfers 
are  made  to  an  available  computation  method  via  NCODE,  control  eventually  returns 
to  statement  115. 

At  115  initializations  are  made  for  a  loop  that  will  fill  in  sequentially  all  of  the 
wind  cells  of  the  specified  strata  and  will  record  the  vector  values  in  the  arrays 
VX(J),  VY(J),  and  VZ(J).  The  storage  index  of  the  first  entry  in  the  wind-field 
description  arrays  for  the  first  stratum  is  set  at  1  (i.  e.  ,  IBADD(l)  =  1),  the  stratum 
index  JW  is  set  at  1  to  designate  the  first  and  lowest  stratum,  and  the  vector 
storage  index,  K,  is  initialized  at  0. 

At  1151  IL(JW)  and  JL(JW),  the  number  of  wind  cells  in  stratum  JW  in  the  X 
and  Y  directions,  respectively,  are  computed.  The  constant  0.  9999999  is  added 
before  truncation  of  the  floating  point  value  to  an  integer  to  insure  that  the  cells 
will  always  cover  the  complete  area  specified  by  the  user.  Next,  further  initial¬ 
ization  occurs  and  the  grid  point  coordinates  XG,  YG,  and  ZG  are  set  at  the  center 
of  the  first  cell  of  the  stratum.  Note  that  special  treatment  must  be  given  to  the  Z 
coordinate  of  both  the  top  and  bottom  strata. 

At  1158  the  program  begins  to  set  up  the  array  NAD,  which  is  used  to  store  ad- 
’  "ess  indices  of  wind  data  vectors  that  are  nearest  neighbors  to  a  particular  wind 
field  grid  point.  It  first  sets  all  NAD(J)  =  J,  J  =  1,  JTOPV,  to  provide  indices  for 
the  full  set  of  data  points  and  to  provide  an  initial  set  of  nearest  data  points.  Note 
that  in  the  beginning  the  NAD  do  not  reference  data  vectors  in  order  of  increasing 
distance  from  the  grid  point  (XG,  YG,  ZG),  but  merely  provide  an  initial  input  to  a 
sort  procedure  that  will  provide  such  an  ordering.  Initially,  we  set  NADT,  the 
index  of  the  NAD  representing  the  data  vector  which  is  the  most  remote  (from  the 
grid  point)  of  the  nearest  NN  vectors,  at  1,  since  prior  to  the  first  pass  through  the 
distance  sorter  all  NN  data  vectors  are  equally  likely  to  be  the  most  remote  of  the 
set. 

Next,  in  three  DO  loops  ending  at  199,  201,  and  202  we  compute  weighting 
factors  related  to  the  vertical  and  horizontal  distances  between  the  current  grid 
point  and  each  data  vector  point,  and  store  the  result  as  a  measure  of  remoteness 
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in  the  array  D2(J)  which  is  parallel  to  the  data  vector  arrays.  We  attempt  to 
minimize  computation  by  keeping  weighting  factor  components  in  parallel  arrays 
DY2  and  DZ2  during  the  evaluation  of  a  wind  field. 

After  202  we  find  the  address  of  and  distance  to  the  most  remote  point  (from  the 
grid  point)  of  the  currently  specified  NN  "nearest"  data  points.  (These  are  the 
points  whose  addresses  (indices)  are  given  by  NAD(l)  through  NAD(NN).  This 
maximum  distance  is  stored  in  the  word  DM  and  NADT  is  set  such  that  DM  = 
D2(NAD(NADT)). 

At  2072  we  may  scan  the  data  vectors  that  are  not  within  the  set  of  nearest 
NN  to  ascertain  that  there  is  no  vector  nearer  than  the  most  remote  of  the  nearest 
NN.  If  one  is  found,  its  address  must  be  inserted  in  the  place  of  the  most  remote 
and  adjustments  made  to  NADT  and  DM.  (This  somewhat  obscure  procedure  is  in¬ 
tended  to  achieve  efficiency  by  making  extensive  use  of  the  strong  correlation  that 
will  exist  between  the  interpoint  distances  in  the  array  D2  as  the  calculation 
progresses  from  one  grid  point  evaluation  to  the  next. )  At  the  end  of  this  pro¬ 
cedure  (after  2073)  the  nearest  NN  data  vectors  have  been  located  and  their  addresses 
are  recorded  in  NAD(J),  J  =  1,  NN. 

The  grid  data  storage  index  K  is  next  incremented  and  a  second  branch  is  made 
on  the  basis  of  NCODE. 


If  NCODE  =  4,  we  branch  to  the  least-squares  method  which  uses  the  NN  near¬ 
est  data  points  under  the  restraint  that  NN  >  4.  Rectilinear  coordinates  of  the  points 
are  determined  with  respect  to  the  grid  point  at  which  we  wish  to  calculate  the  wind 
field.  Next,  the  elements  of  the  normal  equations  matrix  are  computed  and  the 
complementary  minors  Bll,  B21,  B31,  and  B41  are  determined.  If  BB,  the 
absolute  value  of  the  largest  of  the  four  products  of  the  cofactors  times  their 


corresponding  matrix  e 
computed  and  the  ratio 

Ibbb  ' 


BB 


,-20 


the  determinant  BBB  is 


ements,  is  not  less  than  10 

BBB  —20 

— —  is  found.  If  BB  is  less  than  10  or  the  ratio 
J3J3 


>o  1 

is  less  than  10"°,  an  excessive  number  of  significant  figures  are  lost  in  the 


least-squares  calculation  for  this  particular  grid  point  (i.e.  ,  the  normal  equations 
matrix  is  essentially  singular),  and  the  code  prints  this  information  and  then  branches 
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to  the  preferential  weighting  method  (as  though  NCODE  =  1).  If  neither  of  these 
cases  occurs,  the  wind  velocity  vectors  are  computed  and  stored  using  index  K. 

If  the  preferential  weighting  method  is  to  be  used  (NCODE  =  1),  a  transfer  is 
made  to  2080  where  weighting  factors  are  computed  and  summed  for  the  NN  near¬ 
est  data  vectors.  Next  (after  214),  the  three  vector  components  are  computed  as 
a  weighted  average  of  the  vectors  at  the  NN  nearest  data  points  and  the  results  are 
stored  in  the  arrays  VX,  VY,  and  VZ  under  the  index  K. 

The  least  squares  and  preferential  weighting  methods  converge  again  at 
statement  2090  where  the  indexing  and  control  scheme  begins.  First,  the  X 
coordinate  of  the  current  grid  point  is  incremented,  and  if  the  new  grid  point  is 
still  within  the  desired  wind  field,  the  program  returns  to  2011  to  begin  the  evalua¬ 
tion  of  its  vector.  If  the  new  X  coordinate  is  beyond  the  wind-field  range,  X  is 
reset  and  Y  is  incremented  and  tested.  If  both  X  and  Y  end  up  beyond  the  range  of 
interest,  the  program  moves  on  to  the  next  higher  stratum.  When  all  strata  have 
been  evaluated  in  full  the  program  branches  to  130  where  all  input  data  are  printed, 
and  if  desired  (IC(7)  ~  1),  all  computed  wind  cell  vectors  are  also  printed.  Finally 
at  109  a  call  is  made  to  subroutine  PDCIRS  which  reads  a  set  of  data  describing 
the  limits  of  all  local  circulation  cells  and  the  types  of  circulation  systems  within 
them.  Upon  return  from  RDCIRS,  MKWIND  returns  to  the  monitor  so  that  trans¬ 
port  may  be  continued  using  the  newly  updated  wind  field  description. 

Subroutine  LINK7  (FC-9  and  FC-10) 

This  subroutine  is  the  primary  transport  program.  It  accepts  a  tape  of  trans¬ 
portable  particles  and  transports  them,  stopping  only  when  it  has  no  more  particles 
to  transport  or  when  a  new  version  of  the  wind-field  description  must  be  prepared. 
The  first  action  of  LINK7  is  to  interrogate  the  input  parameter  IC(6)  (see  Table  6) 
to  ascertain  whether  the  transport  traces  have  been  requested.  If  IC(6)  <  1,  no 
traces  are  printed.  If  IC(6)  -  1,  the  complete  in-core  particle  arrays  are  printed 
after  each  block  of  new  particles  is  read  in  from  tape  IPARIN.  Each  line  of  this 
output  consists  of  XP,  YP,  ZP,  TP,  PS,  and  FMAS.  If  IC(6)  >  1,  at  the  beginning 
of  the  main  transport  loop  this  same  information  is  printed  for  each  particle  in 
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turn,  and  in  addition  after  each  transport  increment  the  quantities  XP,  YP,  ZP,  TP, 
TSM,  NTI,  NG,  NTO,  NW,  NLOST,  and  IR  (see  the  LINK5  glossary  for  definition 
of  these  quantities)  are  printed  for  each  particle.  In  the  execution  of  the  Transport 
Module  LINK7  is  always  preceded  by  a  call  to  LINK6,  the  wind-field  description 
generator  program.  Since  the  data  peculiar  to  each  existing  local  circulation  sys¬ 
tem  (as  defined  by  RDCIRS  which  is  called  by  LINK6)  must  also  be  updated  before 
transport  begins,  LINK7  first  transfers  to  each  of  the  required  local  circulation 
codes  to  cause  them  to  read  their  data.  If  there  are  no  local  circulation  systems 
in  use,  or  after  reading  the  data  for  the  required  local  circulation  codes,  LINK7 
continues  at  statement  number  510.  There,  assignments  are  made  for  parameters 
IT  and  ITT  according  to  the  value  of  IC(1)  to  control  the  transport  of  particles  as 
they  approach  the  topography  (see  Table  6). 

Next,  at  1000  the  program  makes  preparations  to  enter  the  main  transport 
loop.  IS  and  IF  are  set  for  use  as  particle  index  limits  of  the  main  transport  loop. 

If  JTIME1  is  zero  a  regular  entrance  is  being  made,  but  if  JTIME1  is  negative, 
there  may  be  transportable  particles  in  the  particle  arrays  left  over  from  the  pre¬ 
ceding  pass  (prior  to  the  most  recent  updating  of  the  wind  field).  In  the  latter  case 
the  main  transport  loop  is  entered  with  index  limits  set  to  cover  the  full  particle 
array  so  that  all  left-over  transportable  particles  will  be  dealt  with. 

If  JTIME1  is  zero  or  positive  (no  particles  remain  at  the  time  boundary),  the 
program  at  statement  1112  begins  processing  transportable  particles  from  tape 
IPARIN.  Note  that  the  logical  tape  number  recorded  in  parameter  IPARIN  is  not 
always  the  number  of  the  unit  on  which  the  data  was  originally  received  from  LINK4. 
IPARIN  always  identifies  a  tape  containing  transportable  particles,  but  these  may 
be  either  the  original  input  from  LINK4  or  a  recirculation  of  particles  that  were 
written  onto  some  one  of  the  secondary  memory  units  IPAROT,  IOWIND,  or  IOTOPO. 
At  1112  LINK7  reads  a  block  count,  N,  from  IPARIN;  if  N  is  positive  and  N  particle 
descriptions  can  fit  into  the  particle  arrays,  subroutine  DUMPP  is  called  to  prepare 
a  place  for  the  N  particles.  The  loop  index  limits  are  reset  to  cause  processing  of 
the  incoming  N  particles  and  the  N  particles  are  read  from  IPARIN.  Finally, 

NFREE,  the  count  of  empty  spaces  in  the  particle  arrays,  is  decreased  by  N  and 
control  is  transferred  to  1001  where  the  main  transport  loop  begins.  In  the  event 


that  the  block  count  was  zero,  the  end  of  the  set  of  transportable  particles  on  IPARIN 
has  been  reached  and  a  transfer  is  made  to  100  where  preparations  are  made  to 
either  recirculate  data  from  secondary  memory  tapes  or  transfer  to  the  transport 
executive  (LINK5).  At  this  point  LINK5  will  either  call  for  updating  of  the  wind 
field  or  for  the  Output  Processor  Module, 

Continuing  this  explanation  at  statement  100  we  see  that  if  off-topo  particles 
exist  (JTOPl^O),  the  program  selects  the  next  needed  topo  file,  fetches  it  from 
IHTOPO,  and  subsequently  returns  to  the  main  transport  loop  (1001)  to  make  use  of 
the  newly  acquired  topo  data 

At  104  a  similar  treatment  is  given  to  particles  that  may  have  gone  beyond  the 
in-core  wind  field.  However,  since  currently  existing  wind  field  programs  do  not 
make  use  of  a  tape  wind  field  file,  the  code  beginning  at  statement  130  will  not  be 
executed. 

At  200  preparations  are  made  to  return  to  the  transport  executive  where  a 
call  is  provided  for  either  the  output  processor  or  the  wind-field  program. 

The  main  transport  loop  (between  statement  numbers  1001  and  160)  uses  the 
index  J  to  identify  the  current  particle  description.  It  begins  by  determining  if  the 
current  (Jth)  particle  is  to  be  transported,  To  be  transportable  it  must  be  identified 
by  a  positive  FMAS(J)  and  O  <  TP(J)  <  TLIM1T;  the  program  avoids  all  untrans¬ 
portable  particles  by  transferring  immediately  to  the  loop  control  point  at  160  when¬ 
ever  one  is  encountered. 

At  195  NLOCIR,  the  number  of  local  circulation  systems  in  use,  is  tested.  If 
any  are  in  use,  the  Jth  particle  is  tested  to  see  if  it  is  within  or  above  any  local 
cell,  but  if  there  are  none  in  use,  this  test  is  avoided.  If  a  particle  is  found  to  be 
in  or  above  any  local  cell,  LOTRAN  is  called  to  transport  the  particle  until  it  passes 
beyond  the  cell's  vertical  boundary  planes.  Since  a  particle  may  pass  out  of  one 
local  cell  and  immediately  into  another,  control  cannot  be  returned  to  the  main 
body  of  the  transport  loop  (at  1950)  until  it  has  been  ascertained  that  the  particle 
is  no  longer  within  or  above  any  of  the  local  cells. 
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At  1950  arguments  are  set  for  a  call  to  subroutine  GETWND  at  1961.  GETWND 
gets  the  macrowind-field  vector  that  applies  at  the  point  whose  coordinates  are  in 
arguments  XX,  YY,  ZZ.  If  upon  return  the  index  JWAD  is  set  negative,  the  needed 
macrowind  data  is  not  available  and  the  particle  must  be  considered  lost  to  the 
computation.  However,  if  JWAD  is  positive,  a  correct  retrieval  has  been  accom¬ 
plished  and  the  program  continues  to  196. 

At  196  the  particle  settling  rate  is  computed  for  the  current  particle  by  the  call 
to  FALPAT  and  VPZ  is  set  as  the  net  vertical  particle  velocity  component.  Next, 
distances  are  computed  from  the  particle  position  to  each  of  the  vertical  planes  that 
bound  the  macrowind  cell  containing  the  particle.  Time  of  flight  is  then  computed  to 
the  north-south  and  east-west  boundary  planes  and  also  to  the  horizontal  plane  which 
would  be  first  encountered. 

At  1711  the  time  of  flight  to  the  first  intersection  with  a  local  circulation  cell  is 
computed,  but  note  that  if  NLOCIR  (the  number  of  local  cells  in  use)  is  zero  much 
code  is  avoided  and  a  transfer  is  made  directly  to  172.  In  the  event  that  inter¬ 
sections  with  local  cells  must  be  sought,  a  DO  loop  sequentially  computes  the  time 
of  intersection  to  each  of  the  defined  cells  keeping  track  of  the  time  of  flight  to  the 
first  intersection  (if  there  is  one)  in  variable  CIRMIN. 

At  172  the  program  selects  the  time  of  flight  to  the  first  of  all  intersections  with 
boundary  planes;  if  that  time  of  flight  is  excessively  small,  special  steps  must  be 
taken  (at  1811)  to  assure  that  program  efficiency  is  not  lost.  Asymptotic  approaches 
to  boundaries  are  avoided  by  never  using  a  time  step  smaller  than  EPSIL.  Oscilla¬ 
tions  at  boundaries  are  avoided  by  treating  the  occurrence  of  two  sequential,  exces¬ 
sively  small  time  steps  as  a  sign  of  oscillation  and  by  subsequently  avoiding  move¬ 
ments  to  or  from  the  plane  of  oscillation. 

Continuing  at  3067  a  comparison  of  particle  altitude  and  maximum  topo  height  is 
made  and  if  the  particle  is  above  TTOPO,  simple  linear  transport  occurs.  How¬ 
ever,  if  particle  altitude  is  below  TTOPO,  a  special  loop  beginning  at  1814  is  used 
to  transport  the  particle  by  constant  time  steps  (DTMAC)  for  the  interval  TSM  or 
until  impact  on  topography  occurs.  It  should  be  noted  that  the  main  transport  loop 
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never  moves  any  particle  descriptions  within  the  particle  arrays.  It  does,  however, 
mark  the  status  of  particles  within  the  arrays  using  the  sign  of  parameter  FMAS(J) 
and  the  sign  and  value  of  TP(J)  in  accordance  with  the  conventions  described  in 
Table  2. 

Subroutine  GETWND(XX,  YY,  ZZ,  JWAD,  JW)  (FC-11) 

The  purpose  of  this  program  is  to  determine  the  index  to  be  used  for  retrieving 
the  macrowind  vector  that  applies  at  a  particle  position  point  XX,  YY,  ZZ.  The 
desired  index  is  stored  in  the  argument  JWAD  upon  return.  JWAD  is  set  negative 
in  the  event  that  the  point  XX,  YY,  ZZ  is  outside  the  volume  for  which  the  macrowind 
field  has  been  specified. 

The  computation  of  index  JWAD  consists  of  two  parts:  first,  the  computation  of 
JW,  the  index  of  the  wind  stratum  containing  the  point;  and  second,  the  actual 
computation  of  the  retrieval  index  JWAD  using  information  describing  the  data 
structure  of  the  JWth  stratum.  In  the  event  that  it  is  known  that  the  value  of  the  JW 
last  computed  is  still  valid,  the  computation  of  JW  can  be  avoided.  The  calling 
program  must  only  set  the  sign  of  the  valid  JW  negative  to  cause  GETWND  to  avoid 
recomputing  it. 

The  execution  of  GETWND  begins  by  testing  the  sign  of  argument  JW.  If  the 
sign  is  negative,  it  is  set  positive  and  a  transfer  is  made  to  statement  270  where 
JW  is  used  to  compute  JWAD.  If  JW  is  nonnegative,  a  two-boundaried  binary  search 
is  used  to  set  JW.  In  that  search  JT  is  initialized  as  the  index  of  the  top  wind  layer 
and  JW  is  initialized  as  the  index  of  the  bottom  wind  layer  of  the  whole  macrowind 
field.  A  test  index  (JTEST)  is  computed  as  the  (truncated)  mean  between  JT  and 
JW  and  the  program  determines  whether  the  point  is  above  or  below  the  bottom  height 
(BOTHIT (JTEST))  of  the  test  index's  wind  layer.  If  the  particle  is  above  the  bottom 
of  layer  JTEST,  the  bottom  index  JW  is  reset  equal  to  JTEST  to  indicate  that  the 
particle  has  been  found  to  lie  in  some  layer  from  JTEST (JW)  through  JT.  Had  the 
particle  been  below  the  test  layer,  the  top  index  would  have  been  reset  to  equal  the 
test  index.  The  algorithm  proceeds  by  converging  iteratively  on  the  layer  containing 
the  particle  and  exits  when  JT  and  JW  are  separated  by  unity  at  which  point  the 
particle  must  be  within  the  JWth  layer. 
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Next,  at  statement  number  270  a  check  is  made  to  see  that  the  particle  is  with¬ 
in  the  bounds  of  the  macrowind  field.  If  it  is  not,  JWAD  is  set  -1  to  indicate  the 
problem  to  the  calling  program  and  GETWND  returns.  If  the  particle  is  in  a  satis¬ 
factory  position,  JWAD  is  computed  to  locate  the  desired  vector  and  then  GETWND 
returns  control  to  the  calling  program. 

Subroutine  LOTRAN(J,  K)  (FC-12) 

The  purpose  of  this  subroutine  is  to  transport  a  particle  when  it  is  either  with¬ 
in  or  above  a  local  circulation  system  cell.  This  program  is  called  from  only  one 
place  in  the  main  transport  program  (LINK7).  The  call  is  made  from  within  the 
main  transport  loop  but  only  when  it  is  known  that  the  particle  being  transported  is 
either  within  or  above  the  Kth  local  circulation  cell  In  the  actual  execution  of 
LOTRAN,  first  an  assignment  is  made  on  the  basis  of  the  type  (CIRTYP(K))  of 
circulation  program  that  is  applicable  within  the  Kth  local  cell.  The  purpose  of 
this  assignment  is  to  allow  efficient  branching  to  the  desired  program  within  the 
actual  local  transport  loop.  After  making  the  assignment  the  program  branches 
to  statement  number  120. 

At  statement  120  the  particle  settling  rate  for  the  current  particle  is  computed 
and  stored  in  variable  FV  Then  by  comparing  the  particle  Z  coordinate  (ZP(J)) 
and  the  height  of  the  top  of  the  Kth  local  cell  we  determine  whether  the  particle  is 
above  or  within  the  local  cell.  If  the  particle  is  above  the  cell,  we  wish  to  transport 
the  particle  making  use  of  the  macrowind-field  specification.  Thus,  we  call  sub¬ 
routine  GETWND  to  retrieve  the  macrowind  vector  for  the  particle  position.  Then 
the  vertical  particle  velocity  is  computed  as  the  sum  of  the  settling  rate,  FV,  and 
the  vertical  wind  component.  In  order  to  be  able  to  move  the  particle  as  far  as 
possible  in  the  next  step,  we  must  next  compute  the  time  of  flight  to  all  applicable 
boundaries  and  select  the  first  intercept.  These  boundaries  are  an  X-boundary  plane, 
a  Y-boundary  plane,  a  plane  forming  a  horizontal  boundary  between  layers  of  the 
macrowind-field  description,  and  the  plane  forming  the  top  of  the  local  cell. 

Having  selected  the  earliest  intercept  time,  the  particle  is  simply  transported 
for  that  increment  in  one  step  making  use  of  , the  macrowind  vectors.  At  this  point 
the  particle  will  either  be  going  into  the  local  cell  through  its  top,  going  out  of  the 
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local  transport  volume,  or  resting  at  a  macrowind  layer  boundary  or  the  time 
boundary  In  any  case,  a  transfer  is  made  to  statement  number  131. 

At  131  the  program  determines  whether  the  particle  is  still  in  or  above  the 
local  cell  If  it  is  not,  the  program  is  finished  and  returns.  If  the  particle  is  still 
in  or  above  the  local  cell,  the  time  boundary  is  checked  and  if  not  violated  a  return 
is  made  to  the  top  of  the  loop  at  statement  120 

If  the  particle  was  originally  or  is  now  within  the  local  cell,  an  ASSIGNED  GO 
TO  is  used  to  transfer  to  a  subroutine  CALL  statement  which  transfers  control  to  a 
local  circulation  system  subroutine  (either  MTWNDI,  RGWNDI,  or  CBREZ1).  With¬ 
in  the  local  circulation  system  subroutine  the  three  wind  velocity  vector  components 
are  computed  at  the  position  of  the  particle  and  control  then  is  returned  to  LOTRAN, 
The  wind  vector  component  is  used  to  transport  the  particle  over  one  (small)  time 
step  by  point-slope  integration  (see  p.  37  ).  Particles  within  the  local  cell  iterate 
through  the  transport  loop  procedure  until  they  either  leave  the  cell  or  become 
grounded. 

Subroutine  MTWNDI  (J,  K,  AX,  AY,  AZ)  (FC-13) 

This  subroutine,  used  for  the  Kth  local  cell,  consists  of  two  logical  roi  ?s  that 

serve  the  purpose  of  (1)  reading  mountain  wind  data  and  (2)  computing  the  mi  ntain 

wind  components  for  the  Jth  particle  at  location  XP(J),  YP(J),  ZP(J)  after  fir  ;t 

checking  for  impact  on  the  ground.  If  impact  is  sensed,  the  wind  velocity  is  assigned 

8 

a  large  downward  velocity  component,  AZ  =  -10  .  The  read  route,  entered  when  the 
sign  of  the  argument  J  is  negative,  also  serves  to  precompute  constant  geometrical 
relationships  between  the  unperturbed  wind,  mountains,  and  macrosystem  so  as  to 
facilitate  computation  on  the  compute  route.  The  compute  route  is  entered  during 
actual  particle  transport  when  J,  now  positive,  is  the  argument  of  the  particular 
particle  being  moved. 

In  the  read  route,  first  the  coordinates  XM(I),  YM(I),  height  H(I),  and  half¬ 
width  A  (I)  of  the  Ith  mountain  are  read  for  each  of  the  I  mountains  with  I  ranging 
from  1  to  NMT,  the  maximum  number  of  mountains  Each  mountain  is  checked 
for  the  ratio,  H(I)/A(I),  and  location  within  the  Kth  local  cell  boundaries  of  north 
(CRMAXY(K)),  south  (CRMINY(K)),  east  (CRMAXX(K)),  and  west  (CRMINX(K)). 
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FC-12.  Flow  Charts  for  Subroutine  LOTRAN 


(b) 

FC-12.  (Continued)  Flow  Charts  for  Subroutine  LOTRAN 


The  height  CRl  HT>K<  oi  the  Kth  cliI  is  delined  as  three  times  the  height  of  the 
tallest  mountain  The  error  subroutine  is  called  if  a  mountain  ratio  exceeds  0  6 
if  a  mountain  does  not  lie  within  the  boundaries  ol  the  Kth  local  cell,  or  if  the 
number  of  mountains  exceeds  the  maximum  oi  twelve  mountains  allowed  in  the 
Kth  cell. 

Next  the  read  route  computes  the  geometric  center.  (XX  YY,ZZ)  of  the  Kth 
local  cell  and  calls  the  subroutine  GETWND  to  retrieve  the  index  JWAD  of  the  un¬ 
perturbed  wind  vector  at  that  (XX  YY  ZZ>  location  within  the  macrowind  field  A 
nonpositive  JWAD  index  will  call  the  ERROR  subroutine  Using  the  stored  wind 
components  indexed  on  .JWAD  the  magnitude  of  the  unperturbed  wind  vector. 

UOfK)  and  its  direction  in  the  macrowind  field  are  computed  Constant  parameters 
used  in  the  compute  route  are  also  computed  and  stored.  The  local  cell  identification 
the  mountains,  the  unperturbed  wind  vector  and  the  boundaries  of  the  local  cell  are 
printed  out  This  ends  the  read  route. 

The  computing  route  first  determines  the  distance  of  the  Jth  particle  from  the 
Ith  mountain  in  terms  of  a  component  parallel  and  a  component  perpendicular  to  the 
direction,  of  the  unperturbed  wind  The  analytical  height  of  the  Ith  mountain  at  this 
particle  location  is  also  determined  Then,  the  perturbed  w’ind  components  parallel, 
horizontally  perpendicular  and  vertically  perpendicular  to  the  unperturbed  wind 
vector  are  calculated.  The  height  and  perturbed  wind  components  due  to  each 
mountain  are  summed  and  DZ  the  total  analytic  height  of  the  mountain,  is  checked 
against  ZP(J>.  the  height  of  the  particle,  to  determine  impact  If  DZ  is  greater  than 
ZP(J).  the  velocity  (0.0.  -10%  is  assigned  to  the  wind  However,  if  the  particle 
is  still  aloft  the  unperturbed  wind  vector  is  added  to  the  summed  perturbed 
components  the  resulting  influence  of  all  the  mountains  and  the  wind-field  vector 
is  rotated  back  into  the  macrowind-1 ield  coordinate  system  This  ends  the  compute 
route  with  the  desired  wind  components  stoied  in  variables  AX.  AY.  and  AZ. 

Subroutine  P GWNDl.J.  K.  AX  AY  AZ >  < FC - 14. 

This  subroutine  for  the  Kth  local  cell  consists  of  two  logical  routes  that  serve 
the  purpose  of  reading  ridge  wind  data  and  computing  the  ridge  wind  components  for 
the  Jth  particle  at  location  XPiJe  YlJcJ«  ZPfJi  alter  lirst  checking  for  impact  on 
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the  ground,  If  impact  is  sensed,  the  wind  velocity  is  assigned  a  large  downward 
velocity  component.  The  read  route,  entered  when  the  sign  of  argument  J  is  minus, 
serves  to  pre-compute  constant  geometrical  relationships  between  the  ridges,  un¬ 
perturbed  wind,  and  macrosystem  to  facilitate  computation  during  the  compute  route. 
The  compute  route  is  entered  during  actual  particle  transport  when  J,  now  positive, 
is  the  argument  of  the  particular  particle  being  moved. 

In  the  read  route,  first  the  coordinates  XM(I),  YM(I),  height  H(I),  halfwidth 
A(I),  and  orientation  B(I)  of  the  Ith  ridge  are  read  for  I  ranging  from  1  to  NRG,  the 
maximum  number  of  ridges.  The  orientation,  B(I),  of  a  ridge  is  defined  as  the 
clockwise  rotation  of  the  ridge  in  radians,  where  zero  radians  indicates  a  ridge 
oriented  north-south  Each  ridge  is  checked  for  the  ridge  ratio,  H(I)/A(I),  and  for 
location  within  the  Kth  local  cell  boundaries  of  north  (CBMAXY(K)),  south 
(CRMINY(K)),  east  (CRMAXX(K))  and  west  (CRMINX(K)).  The  height,  CRUHT(K), 
of  the  Kth  cell  is  defined  as  three  times  the  height  of  the  tallest  ridge.  The  error 
subroutine  is  called  if:  a  ridge  ratio  exceeds  0.  6,  a  ridge  does  not  lie  within  the 
boundaries  of  the  Kth  cell,  or  the  number  of  ridges  exceeds  the  maximum  of  twelve 
ridges  allowed  in  the  Kth  cell. 

Next,  the  read  route  computes  the  geometric  center  (XX,  YY,  ZZ)  of  the  Kth 
local  cell  and  calls  the  subroutine  GETWND  to  retrieve  JWAD,  the  index  of  the 
unperturbed  wind  vector  at  that  (XX,  YY,  ZZ)  location  within  the  macrowind  field. 

A  nonpositive  JWAD  index  will  lead  to  the  ERROR  subroutine.  Using  the  stored 
wind  components  indexed  on  JWAD,  the  magnitude  of  the  unperturbed  wind  vector, 
UO(K),  and  its  direction  in  the  macrowind  field  are  computed,  Constant  geometrical 
relationships  between  wind  vector  components  (UO(K)),  the  macrowind  field,  and 
the  orientation  and  location  of  the  ridges  are  computed  and  stored  for  use  in  the 
compute  route.  The  local  cell  identification,  the  ridges,  the  retrieved  unperturbed 
wind  vector,  and  the  boundaries  of  the  local  cell  are  printed  out.  This  ends  the 
read  route 

The  computing  route  first  determines  the  perpendicular  distance  of  the  Jth 
particle  from  the  Ith  ridge.  The  analytical  height  of  the  ground  and  the  parallel, 
horizontally  perpendicular,  and  vertically  perpendicular  perturbed  wind  components 
with  respect  to  the  unperturbed  wind,  UO(K),  are  now  computed  at  this  particle 


position.  The  results  for  each  ridge  are  summed  with  the  succeeding  ridges  to 

yield  total  height  and  perturbed  wind  vectors  due  to  all  the  ridges  at  this  point. 

Next,  the  particle  height,  ZP(J),  is  checked  against  the  total  analytical  ground 

8  -1 

height,  DZ,  to  determine  impact;  upon  which,  the  velocity  (0,  0, -10  )  msec 
is  assigned  to  the  wind.  However,  if  the  particle  is  still  aloft,  the  unperturbed 
wind  vector  is  added  to  the  summed  perturbed  components  and  the  result  is  rotated 
back  into  the  macrowind  field  coordinate  system.  This  ends  the  compute  route 
with  the  desired  wind  components  stored  in  variables  AX,  AY,  and  AZ. 

Subroutine  CBREZ1(J,  K,  AX,  AY,  AZ)  (FC-15) 

Before  attempting  to  use  the  sea-breeze  local  circulation  system,  the  reader 
is  advised  to  obtain  a  thorough  understanding  of  the  model  by  studying  the  presenta¬ 
tions  in  the  Physical  and  Mathematical  Models  section  and  in  Appendix  B. 

The  CBREZ1  subroutine  serves  the  dual  purpose  of  reading  the  sea-breeze  data 
and  computing  the  sea-breeze  velocity  components  for  the  Jth  particle  at  location 
XP(J),  YP(J),  ZP(J)  and  time  TP(J),  after  first  checking  for  particle  impact  at 
sea  level.  The  programming  of  CBREZ1  is  divided  into  two  mutually  exclusive 
chains  of  logic  that  will  be  referred  to  as  the  read  route  and  the  compute  route. 

The  read  route,  entered  at  statement  number  100  when  the  sign  of  the  argument  J 
is  negative,  also  serves  to  pre-compute  constant  sea  breeze  parameters  to 
facilitate  computation  during  the  compute  route.  The  compute  route  is  entered 
during  actual  particle  transport  when  J,  now  positive,  is  the  index  of  the  particular 
particle  being  moved. 

The  read  route  starts  by  reading  from  the  system  input  tape  values  for  param¬ 
eters  B,  GRAD,  NN  and  the  pairs  DELTX(N)  and  TAUX(N)  for  N  ranging  from  1 
to  NN.  The  maximum  value  of  NN  is  nine  (see  Table  3).  N  represents  the  order 
of  the  harmonic  described  by  DELTX(N)  and  TAUX(N).  These  parameters  serve  to 
calculate  OMGX(N),  AJZX(N),  AJXX(N),  AJY(N),  R1RX(N),  R1IX(N),  R2RX(N), 
R2DC(N),  ESQl,  ESQ2,  AN1,  AN2,  FAX(N),  Tl,  DELTX(N),  and  TAUX(N),  for  each 
Nth  harmonic,  and  are  printed  out  as  the  respective  symbols:  OMGN(N),  AJZ(N), 
AJX(N),  AJY (N),  AKN1(N),  ALN1(N),  AKN2 (N),  ALN2(N),  BLOWl(N),  BLOW2(N), 
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(C) 
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ANN1(N),  ANNI(N),  PHIN(N).  ENU(N),  DELTX(N),  and  TAUX(N)  Correspondences 
of  these  mnemonics  with  the  symbols  defined  in  the  Physical  and  Mathematical 
Models  section  are  given  in  Tables  3  and  4 

During  the  computation  of  these  constants  checks  are  made  to  ensure  that  SGMA, 
the  Guldberg-Mohn  friction  parameter,  and  AKY  the  thermal  eddy  diffusivity,  are 
not  zero  If  either  one  of  these  constants  is  zero,  subroutine  ERROR  is  called 

Also  calculated  in  the  read  route  are  the  height,  CRUHT(K),  of  the  sea-breeze 
cell  and  geometrical  constants  to  rotate  the  particle  coordinates  and  wind  vectors 
in  and  out  of  the  sea-breeze  system  The  angle  of  rotation,  B,  is  zero  when  the 
sea  lies  on  the  west  side  of  a  shore  line  parallel  to  the  north-south  axis.  The  shore 
line  is  defined  to  run  through  the  center,  (XCB,  YCB),  of  the  area  bounded  by  the 
north  (CRMAXY(K)),  south  (CRMINY(K)),  east  (CRMAXX(K)),  and  west  (CRMINX(K)) 
vertical  sides  of  the  sea-breeze  cell  The  printout  from  the  read  route  sequentially 
consists  of  the  local  cell  identification,  the  cell  boundaries,  the  input  parameters, 
and  the  harmonic  parameters 

The  compute  route  first  checks  particle  altitude,  ZP(J),  against  sea  level.  It 

g 

assigns  the  wind  vector  (0,  0,  -10  )  for  negative  altitudes  and  returns  to  the  calling 
program.  The  coordinates  of  the  particles  nonnegative  altitude  are  rotated  into  the 
sea-breeze  coordinate  system  If  the  horizontal  distance  between  the  particle  and 
the  shore  line  (measured  perpendicular  to  the  shore  line)  is  greater  than  the  half 
width  of  the  sea-breeze  cell,  an  exponential  attenuation  based  on  the  perpendicular 
distance  from  the  edge  of  this  primary  cell  is  used  No  attenuation  is  used  within 
the  primary  cell 

The  wind-field  constants  tor  each  harmonic  mode  are  now  calculated  The  verti¬ 
cal  (AZ)  and  the  horizontally  parallel  (AY)  and  perpendicular  (AZ)(with  respect  to 
the  shore  line)  wind  vectors  are  computed  from  Eqs,  (60).  (61),  and  (62)  and  summed 
over  all  the  harmonic  modes  The  resultant  wind  vectors  are  next  rotated  back  in¬ 
to  macrowind-field  coordinates  and  subroutine  CBREZ1  returns  control  to  the 
calling  program. 

To  aid  the  user  in  evaluating  the  properties  of  the  sea-breeze  circulation  sys¬ 
tem  generated  from  the  input  data,  an  'interpretative  output'  of  key  model  param¬ 
eters  is  provided  This  output  is  described  in  Table  4  These  parameters  are 
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TABLE  3 


I 

I 

I 


INPUT  QUANTITIES  FOR  THE  SEA  BREEZE 


Physical  Quantity 

Text 

Designation 

Program 

Designation 

Dimension 

Units 

Typical  Values  and  Comments 

Number  of  harmonics 

n 

NN 

Approximately  two  or  three 

Total  extent  of  sea 
breeze 

L 

X 

ELX 

m 

Less  than  10^m 

Sine  of  latitude 

sin  <j> 

SNPHI 

-1  <  sin  <(>  <  +  1 

Angle  of  coastline 
relative  to  y  axis  of 
grid 

>P 

B 

Wind  field  extrapola¬ 
tion  attenuation  con¬ 
stant 

k 

a 

WW 

1 

-1 

m 

0  <  k  <  00 
—  a  — 

Guldberg-Mohn 
friction  parameter 

(T 

SGMA  i 

-1 

sec 

A  value  of  zero  is  not  allowed; 
typical  values  0.  5  x  10~4  <  a 
<2.5x10-4 

Average  ground 
temperature 

e 

o 

THET 

°K 

Expressed  in  degrees  Kelvin: 

6  =  200°K 

0 

Unperturbed  temper¬ 
ature  gradient 

r=(d0Q/dz) 

GRAD 

°Km"1 

A  "'.instant  z-independent  positive 
value  must  be  used;  typical  values 

2  x  10_3<  r<  7.5xl0-3 

Thermal  eddy  diffu- 
sivity 

K 

AKY 

2  -1 
m  sec 

A  constant  z-independent  value 
must  be  used;  typical  values 

25  <  K  <  75 

Magnitude  of  nth  tem¬ 
perature  differential 

* 

T 

n 

DELTXfN) 

°K 

First  harmonic  will  generally  be 
less  than  10°K,  with  subsequent  har¬ 
monics  decreasing  in  magnitude 

Phase  of  nth  tempera¬ 
ture  differential 

T 

n 

i 

TAUX(N) 

Phase  of  first  harmonic  should 
correspond  to  about  1  hr,  or 

Tj~  SI  (3.6)  x  103  =  0.26 

Lag  time  between  sea- 
breeze  local  time  and 
Greenwich  time 

At 

s 

ELAG 

sec 

TABLE  4 


INTERPRETATIVE  OUTPUT  DESCRIPTION 


Output  Designation 


OMGN(N) 

AJZ  (N) 

AJX(N) 

AJY(N) 

AKN1(N) 

ALN1(N) 

AKN2(N) 

ALN2(N) 

BLOW1  (N) 

BLOW2  (N) 

ANN1  (N) 

ANN2  (N) 
PHIN  (N) 


Interpretative  Output 
Description  Designation 


-T*L/B 

n 


A"1  J 


nz 


GJ 


nx 


*2 


€1U1 


e2U2 


h  -  m  +  r 


n 


-0, 


are  sufficient  to  calculate  the  wind  velocity  components  w  ,  un,  and  vn  as  given  by 
Eqs.  ’80),  (61),  and  (62).  Column  1  of  Table  4  gives  the  parameter  designation  in 
the  computer  output  and  column  2  gives  the  parameter  designations  in  the  text.  In 
order  that  the  user  may  be  able  to  understand  in  detail  the  computations  required 
for  evaluation  of  these  parameters,  a  path  through  the  calculation  is  presented  in 
the  paragraphs  to  follow.  Column  3  of  Table  4  gives  the  expressions,  in  terms  of 
the  fundamental  quantities  used  in  the  following  calculation  description,  used  to 
calculate  the  parameters  in  column  2. 

After  reading  the  input  data,  the  machine  computes  the  constants: 


f  =  212  sin  (j)  , 

A  =  (2tt/L  )  , 

A 

a  =  g/eQ 

At  this  point  the  selection  of  the  harmonic  mode  takes  place.  Since  all  the  physical 

* 

quantities  with  the  exception  of  the  input  parameters  Tn  and  Tn  depend  on  the  mode 
only  through  their  dependence  on  nfi,  we  now  set 

f2  =  nfi 


When  the  foregoing  substitution  is  made  it  becomes  possible  to  drop  the  subscript  n, 
it  being  understood  that  we  are  dealing  with  the  nth  mode.  This  permits  many  of 
the  dummy  analytical  variables  subsequently  defined  to  bear  a  one-to-one  corres¬ 
pondence  with  the  mode-dependent  variables.  For  instance,  defined  quantities  such 

as  q,  a,  b,  and  e,  correspond  to  q  ,  a  ,  b  ,  e,  . 

M  1  m  n  n  In 

The  next  group  of  calculations  is: 


i0. 


q  =  <r+  itl  =  A^e 


4  =  W 


+ 


1/2 


01  =  tan  <p./ o’) 


2 

q 


i6c 


A2e 


A'2  A1 


*2  =  201 


q 


+  f2  = 


A3e 


A3 


2  ,2  2 

(T  +  f  -  S2 


.  ^2 _2,\ 1//2  „  2 fi<T  \ 

j  +  4J2  (T  J  ,  e3  tan  ^  2  2  2  )  ‘ 


a2+f2-fl2 
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We  next  turn  our  attention  to  the  coefficients  a,  b,  c  and  d: 


We  define 


B  = 


m  =  0/2  . 

Using  the  foregoing  expressions,  Cp  Dp  C 2,  D2,  Ep  Ep  7p  and  y^  are  then 
calculated. 


Cl=i 

A.  cos  dA  +  Bcos  m 
4  4 

;Di=I 

A.  sin  0.+  A„  +  Bsinm 

4  4  6  J 

o 

to 

II 

toll-* 

Aa  cos  0 ,  -  Bcos  m 
_  4  4  J 

*  °2  =  2 

A.  sin  0  +  A„  -  Bsinm 
_  4  4  6  J 

7l  =tan'1  (Dj/Cj)  ;  y2  = 

tan-1(D2/c2)  ; 

/  o  2\ 

1/2 

/  2  2  \ 

El=(Cl+Dl) 

>  E2  = 

(C2+D2)  • 

The  attenuation  constants  for  the  nth  mode  (symbolized  here  by  and  a^)  are 
given  by 

1/2  ^1 

=  ki +  **i  ' 

l/2 

Q?2=:i:(M2)  =  e2U2e  =  k2  +  *^2  ’ 

where 

U1=E1/2'  U2=E2/2',i1=  V2'  ”2=V2  ' 

kl  =  €1  U1C0S  ’  ^1  =  61  U1  Sil1  ^1  ’ 

k2  =  e2U2  C0S  v2  ’  *2  =  e2U2  Sin  ^2  ’ 
and  and  e2  are  chosen  so  that  e1  cos  and  e2  cos  ri2  are  both  negative 

(fjL  =  ±  1,  c2  =  ±  !>' 
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Next,  the  following  quantities  are  calculated: 


where 


<j>'  =  h  -  m  , 
g  =  -  (f/q)  =  Ge1V  , 


1/2 


G=-f/(<r2tfi2)  =-(f/A^  , 


v  =  -0 


1  * 


At  this  point  all  the  mode-dependent  constants  necessary  to  describe  the  nth  mode 
wind  field  have  been  computed. 

Subroutine  HEIGHT  (X,  Y,  H)  (FC-16) 

Subroutine  HEIGHT  puts  into  argument  H  the  topographic  height  at  horizontal 
position  X,  Y.  It  makes  use  of  the  in-core  topographic  data  block  in  arrays  S(I,  J) 
and  SUBSID(K),  and  data  from  the  topographic  table  of  contents  as  transferred  to 
block  limit  words  BXLL,  BYLL,  BXLU,  and  BYLU,  as  well  as  the  block  grid 
interval  as  found  in  GRINT  and  the  overall  topography  coordinate  limits  TXLL, 

TYLL,  TXLU,  and  TYLU.  (See  the  discussion  of  the  topography  data  input  in  the 
User  Information  section. ) 

Upon  entrance,  the  particle  coordinates  X  and  Y  are  checked  first  to  determine 
if  the  particle  is  over  the  in-core  topography  block.  If  the  particle  is  over  in-core 
topo,  a  transfer  is  made  to  statement  number  11  where  retrieval  begins.  If  it  is 
not,  a  second  check  is  made  to  determine  if  the  particle  is  over  any  specified  topo¬ 
graphy  block.  If  it  is  over  a  topography  block  not  currently  in  core,  this  is  indicated 
by  setting  H  =  -  10000.  If  it  is  over  undefined  topography  then  it  sets  H  =  -  20000. 

In  either  case,  control  then  returns  to  the  calling  program. 

Actual  height  retrieval  begins  at  statement  number  11  with  the  computation  of 
basic  retrieval  indices  I  and  J.  I  and  J  are  respectively  the  indices  of  the  regular 
grid  square  of  side  GRINT  in  which  the  point  XX,  YY  is  located.  The  point  BXLL, 
BYLL  is  the  southwesternmost  point  with  the  in-core  topo  data  block  and  it  is 
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DATA  READ 
ROUTE 


ERROR=  -  101 


PRnrBM  „  rnRr71  XS  =  PCP(J)  -  XCB)  •  COSB  - 
PROGRM  =*  CBREZ1  O'PU)  -  YCB1  *  SP 


AX  =  0.  0 
AY  =0.0 
AZ  =  -I08 


ARG  =  ALM  •  XS 
XS  -  ELX  -  ABSF(XS) 


XS  =  XS  •  WW 


0 

SX-0.0 

BB  =  0.  0 
AY  =  0.  0 
AZ  -  0.0 


L  =  EXPF(XS  ♦  R1RX(N)  •  ZP$!)> 
!  .  EXPFJXS  ♦  R2RX(N)  •  ZP(J)) 
•  OMCX(N)  •  TP(J)  +  FAX(N) 

=  RIIX(N)  •  ZPp)  +  AAGG 
=  R2IX(N)  •  ZP(J)  ♦  AAGG 

1  =  SINF(ARW1)  •  ATTN1 

2  =  SINF(ARW2)  •  ATTN2 

1  =COSF(ARWl)*ATTNl 

2  -  COSF(ARW2)  •  ATTN2 
=  AJXX(N)  •  COSF(ARG) 


AZ  -  A JZX(N)  •  SIN F (ARG)  •  (CARW1  -  CARW2)  +  AZ 
BB  -  AAGG  •  (CARW1  *  CONlX(N)  -  SARV.1  •  CAN1X(N) 
CARW2  •  CONX2(N)  ♦  SARW2  •  SNN2X(N))  ♦  BB 
AY  «  AAGG  «  (CARW1  *  CNN1X(N)  -  SARW1  •  SNN1X(N)  - 
CARW2  *  CNN2X(N)  +  SARW2  •  SNN2X(N))  +  AY 


AX  =  BB  ,  COSB  ♦  AY  .  SINB 
AY  =  -BB  •  SINB  +  AY  •  COSB 


FC-15.  Flow  Charts  for  Subroutine  CBREZ1 


READ 

ROUTE 


READ  SEA-BREEZE  INPUT  PARAMETERS: 
(SNPHI,  SGMA,  ELX,  THET,  WW,  AKY,  B,  GRAD,  NN 
(DELTX(N),  TAUX(N),  N  -  1,  NN)) 

PRINT:  SEA  BREEZE  IDENTIFICATION 


ALM  -  6.  2831853/ELX 
ALPH -9.8/THET  . 

COR  -  (14.  544410  x  10  )  •  SNPHI 


OMGX(N)  -  N 

OMGX(N)  -OMGX(N)  *  (7.2722052  x  10'5) 
A2  -  SGMA  •  SGMA  +  OMGX(N)  •  OMGX(N) 
A1  ~\rK? 


IRROR  »  1003 


T1  =  -  ATANF(OMGX(N)/SGMA) 

T2  -  -2.0  *  T1 

soc  -  CsgmX)  2  -  [omgx(n)32  +  Ccor]2  l 

A3  -  jpOCj2  +  4*  (SGMA32  •  (OMGX<N)]2j 


•  rr  +  ATANF(2.  0  •  OMGX(N)  *  SGMA/SOC) 


T3  -  ATANF(2.  0  •  OMGX(N)  •  SGMA/SOC) 


AY  -  (A2  *  (^LMJ  )! A3 
T4  -  T2  -  T3 

A5  -  (A1  ♦  ALPH  *  (ALM]Z)/A3 
T5  -  -  T1  -  T3 


1 

f  YES 

A6  -  OMGX(N)/AKY 

A 7  -  GRAD/AKY 

ACOT4  -  A4  *  COSF(T4) 

ASIT4  »  A4  •  SINFflVl)  ♦  A6 

B1  -CACOT4]2  -  LASIT4]  2  -  4.  0  •  (A7  *  A5  •  COSF(T5)  -  A6  •  A4  *  SINF(T4)) 
B2  -  2.  0  •  ACOT4  •  ASIT4  -  4.  •  (A6  *  ACOT4  +  A5  *  A7  •  SINF(T5)) 

FC-15.  (Continued)  Flow  Charts  for  Subroutine  CBREZ1 


(C) 

FC-15.  (Continued)  Flow  Charts  for  Subroutine  CBREZ1 
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SRTE1  -  (Cl  •  Cl  ♦  D1  •  Dl) 
SRTE2  m(C2»  C2  *  D2  *  D2)1 
AN1  -  GAMI/2.0 
AN2  -GAM2/2.0 
CONI  -  COSP(ANl) 

CON2X(N)  -  COSF  (AN2) 

CAN1  -SINFJANl) 

CAN2X(N)  -SINF(AN2) 


1/4 


R1RX(N)  =  SRTE1  *  CONI 

R1RX(N)  -  -  SRTE1  •  CONI 

R1IX(N)  *  SRTEl  •  CAN1 

R1IX(N)  -  -  SRTE1  •  CAN1 

EPS1  «  1.0 

EPS1  -  -  1.0 

R2RX(N)  «  SRTE2  •  CON2X(N) 

R2RX(N)  -  -  SRTE2  *  CON2X(N) 

R2IX(N)  -  SRTE2  «  CAN2X(N) 

R2IX(N)  -  -SRTE2  •  CAN2X(N) 

EPS2  -  1.0 

EPS2  -  -1.0 

PRINT:  CCRMAXY(K),  CRM1NY(K),  CRMAXX(K),  CRMINXflC), 
CRUHTfK)} 

PRINT:  CSNPHI,  SGMA,  NN,  ELX,  THET,  WW,  AKY, 

B,  grad: 

PRINT  THE  HEADING  FOR  THE  HARMONIC 
DEPENDENT  PARAMETERS 


<<i> 

FC-15.  (Continued)  Flow  Charts  for  Subroutine  CBREZ1 
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(e) 

FC-15.  (Continued)  Flow  Charts  for  Subroutine  CBREZ1 


located  in  grid  square  (1, 1),  the  height  data  of  which  is  located  in  memory  word 
S(l,  1).  According  to  the  storage  convention  of  the  piecewise-planar  topography,  if 
H  =  S(I,  J)  is  positive,  it  is  the  height  of  the  topography  in  the  cell  (I,  J)  and  thus  the 
height  which  is  being  sought.  If,  on  the  other  hand;  H  is  negative,  the  cell  (I,  J)  is 
subdivided  further  and  |  S(I,  J)|  is  the  address  (index)  of  the  place  in  array  SUBSID(K) 
where  the  data  for  the  subdivided  cell  begins.  If  H  is  negative,  the  program  makes 
preparations  to  retrieve  topographic  data  from  array  SUBSIDfK),  and  then  between 
statements  number  13  and  20  computes  retrieval  index  K  and  control  integer  N. 
Whenever  a  cell  (topographic  unit)  is  subdivided  it  is  always  divided  into  four  equal¬ 
sized  squares  (quadrants).  The  integer  N  identifies  the  quadrant  that  contains  the 
point  XX,  YY. 

The  sign  convention  of  S(I,  J)  also  applies  within  array  SUBSID,  and  if  a  nega¬ 
tive  entry  is  encountered,  a  further  subdivision  of  the  cell  containing  the  point  XX, 
YY  is  indicated.  In  that  case  coordinate  adjustments  are  made  again,  and  the 
program  returns  to  statement  13  where  the  new  retrieval  index  K  is  computed  and 
used.  Eventually  HEIGHT  will  find  a  positive  height  H  and  return  to  the  calling 
program. 


FC-16.  Flow  Charts  for  Subroutine  HEIGHT 


122 


r 


(b) 

FC-16.  (Continued)  Flow  Charts  for  Subroutine  HEIGHT 
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USER  INFORMATION 

Input  Description 

General 

The  Transport  Module  requires  two  kinds  of  input:  (1)  a  binary  tape  output 
from  the  Cloud  Rise-Transport  Interface  Module,  and  (2)  a  set  of  card  inputs  to  be 
read  from  the  system  (IBSYS)  input  tape.  The  binary  input  tape  carries  the  identi¬ 
fier  IPARIN  so  that  the  program  can  ascertain  that  the  correct  tape  has  been 
mounted.  This  tape  provides  a  detailed  description  of  a  large  number  of  cloud 
subdivisions  that  are  ready  to  be  processed  by  the  Transport  Module.  The  Cloud 
Rise-Transport  Interface  Module  produces  two  structurally  identical  binary  output 
tapes,  both  labeled  IPARIN,  that  (1)  describe  an  axially  symmetric  cloud  defined 
at  some  time  of  stabilization  and  (2)  describe  an  asymmetric  cloud  resulting  from 
the  adjustment  of  the  stabilized  cloud  in  accordance  with  the  winds  that  existed  dur¬ 
ing  the  period  of  cloud  rise.  Either  one  of  these  tapes  can  be  used  as  input  to  the 
Transport  Module.  It  is  important  to  note  that  in  neither  case  are  all  cloud  sub¬ 
divisions  defined  at  the  same  time.  The  content  and  structure  of  tape  IPARIN  is 
described  in  detail  in  Table  5. 

Card  inputs  to  the  Transport  Module  consist  of  two  classes:  first,  identification 
and  control  information;  and  second,  wind-field  information.  Since  the  wind-field 
data  required  depends  on  what  options  are  to  be  used,  we  cannot  describe  the  deck 
of  card  inputs  to  the  Transport  Module  in  an  invariant  form;  therefore,  we  shall 
describe  first  only  the  invariant  portion  of  the  deck  and  later  provide  individual 
descriptions  of  the  data  required  by  the  various  options. 

The  first  card  input  required  for  the  Transport  Module  is  an  identification 
card  on  which  the  user  may  punch  any  alphanumeric  characters  to  identify  his  run 
of  the  Transport  Module.  The  second  card  contains  the  values  of  the  array  of 
parameters  for  use  in  controlling  the  execution  of  the  Transport  Module.  Only  8  of 
the  18  elements  of  the  array  IC  have  been  given  functions  at  this  time  and  their 
uses  are  summarized  in  Table  6.  The  remaining  par  *  meters  are  for  use  in  future 
improvements  or  simplifications  of  the  Transport  Module. 
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TABLE  5 


I 

I 


BINARY  INPUT 
Tape  IPARIN 


Logical 

Binary 

Record 

Record  Contents 

Variable  Names 

1 

Tape  identification  word  (IPARIN), spare, 
x  and  y  coordinates  of  ground  zero,  shot 
time,  cloud  subdivision  edge  length, 
spare 

DENTI,  NSP,  XGZ, 

YGZ,  TGZ,  BZ,  NCL 

2 

Detonation  parameters:  yield,  cloud  soil 
burden,  soil  solidification  temperature, 
soil  solidification  time,  ln(SD),  t  spares 

FW.SSAM,  SLDTMP, 
TMSD,  SIGMA,  SPARE1, 
SPARE 2,  SPARE3 

3 

LINK4  run  identification 

PSEID(J),  J  =  1 ,  12 

4 

Cloud-rise  identification 

CRID(J),  J  =  1,  12 

5 

Initial-conditions  run  identification 

DETID(J),  J  =  1, 12 

6 

Fallout  particle  density 

ROPART 

7 

Number  of  particle  size  ranges 

NPS 

8 

Central  particle  size,  associated  mass, 
associated  activity,  *  and  surface-to- 
volume  ratio  for  each  size  range 

PS (I),  A (I),  PACT(I), 

SV(I),  1  =  1,  NPS 

9 

Number  of  atmospheric  strata 

NAT 

10 

Atmospheric  viscosity  and  density  for 
each  stratum 

ATEMP  (I),  RHO(I), 

1  =  1,  NAT 

11 

Number  of  particles  described  in  the 
first  data  block 

NP 

12 

Particle  data  for  first  data  block:  x,  y,  z, 
and  time  coordinates,  particle  Size,  mass 
per  unit  area  of  cloud  subdivision  bottom 

XPAR(I),  YPAR(I), 
ZPAR(I),  TP(I),  PSIZ(I), 
SMAS(I),  1=1,  NP 

13 

Same  as  record  11  for  the  second  data 
block 

14 

Same  as  record  12  for  the  second  data 
block 

M 

Tape  termination  indicator 

NP  =  O 

M  +  1 

End  of  file 

Not  yet  calculated  unless  the  user  has  provided  a  LINKS  particle  activity 
calculation 

^See  LINK1  glossary  in  DASA-1 800-11. 
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TABLE  6 


DESCRIPTION  OF  THE  TRANSPORT  CONTROL  ARRAY  - 

IC(I)t  I  =  1,  8  


I 


Function 


1 


IC(1)  >  0,  suppresses  usage  of  topography  tape,  IHTOPO,  and 
a  planar  topography  is  assumed. 


2 


IC(2)  >  0,  suppresses  usage  of  off-topo  secondary  tape, 
IOTOPO 


3 


IC(3)  >  0,  suppresses  usage  of  out-of -wind-field  secondary 
tape,  IOWIND 


4 


IC(4)  >  0,  suppresses  usage  of  time-boundary  secondary  tape, 
IPAROT 


5 


IC(5)  >  0,  suppresses  usage  of  all  secondary  tapes 


6 


IC(6)  <  1,  no  transport  traces  are  printed 

IC(6)  =  1,  in-core  particle  arrays  are  printed  following  read- 
in  of  each  block  of  particles  from  IPARIN  (see  p,  78) 

IC(6)  >  1,  in  addition,  a  print-out  is  executed  following  each 
transport  increment  (see  p,  78) 


7 


IC(7)  =  1,  causes  the  computed  wind  field  to  be  printed  each 
time  it  is  updated  (see  Table! 3) 


8 


IC(8)  =  0,  causes  a  listing  of  lost  particles  (see  Table  2) 
whenever  a  group  of  lost  particles  are  discarded  by  subroutine 
DUMPP. 
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The  third  card  indicates  the  latest  simulated  time  at  which  the  user  wishes 
the  transport  process  to  terminate.  The  fourth  card  indicates  the  altitude  of  the 
deposition  surface  (topography)  in  the  event  that  the  planar  topography  option  of  the 
Transport  Module  is  to  be  used  (IC(1)  =  0).  The  fifth  card  is  an  identification  card 
on  which  the  user  may  punch  any  alphanumeric  characters  to  identify  the  forth¬ 
coming  wind  data  set.  Table  7  summarizes  the  card  inputs  for  identification  and 
control  of  the  Transport  Module. 


TABLE  7 

CARD  INPUTS  FOR  IDENTIFICATION 
AND  CONTROL  OF  THE  TRANSPORT  MODULE 


Card 

Content 

Variable  Names 

Number 

and  Format 

1 

Transport  model  run  identification 

TID (J) ,  J  =  l,  12  (12A6) 

2 

Control  integer  array 

IC(J),  J  =  1,18(1814) 

3 

Transport  time  limit  (sec) 

T LIMIT  (F10.  5) 

4 

Altitude  of  planar  topography.  This  card  is 
to  be  omitted  if  a  topography  input  tape  is 
used  (m). 

TTOPO  (F10.  5) 

5 

Wind-field  data  set  identification  card 

WID(J);  J  =  l,  12  (12A6) 

The  remaining  card  inputs  describe  the  wind  field  through  which  particle  trans¬ 
port  is  to  be  carried  out.  As  mentioned  previously,  temporal  variation  of  the 
atmosphere  is  achieved  by  periodically  updating  the  entire  wind  field  description. 
Input  data  is  required  for  each  updating  of  the  wind  field,  but  since  the  form  of 
the  required  data  deck  is  the  same  in  each  case  we  shall  describe  it  only  once. 

MKWIND  Data 

The  first  card  contains  the  values  of  parameters  ENDTIM,  the  time  (seconds) 
at  which  the  forthcoming  data  set  should  be  updated,  and  ALPHA  and  BETA 
empirical  parameters  which  the  program  uses  for  distance  weighting  (see  Eq.  (21)). 
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The  second  card  contains  NN,  the  number  of  data  vectors  that  are  to  be  used  in 
computing  the  vector  estimate  for  each  wind  cell  of  the  wind  field.  The  NN  data 
vectors  that  are  closest  to  the  grid  point  are  used  Also  on  the  second  card  is  the 
parameter  NCODE  which  identifies  the  computation  method  to  be  used  in  accordance 
with  Table  8. 


TABLE  8 

WIND-FIELD  COMPUTATION  METHODS 
SPECIFIED  BY  NCODE 


NCODE 

Value 


Method 


1 


Use  preferential  weighting  method  with  the  nearest  NN  data  vectors 


2 


Set  NN  =  1  and  use  code  number  1  (this  is  the  nearest  station  method) 


3 


Set  NN  equal  to  the  total  number  of  data  vectors  available  and  use 
code  number  1 


4 


Use  the  least-squares  method  to  fit  to  a  linear  model  of  the  atmos¬ 
phere,  In  this  case  NN  must  be  greater  than  3. 


In  the  next  series  of  cards  the  program  reads  the  user's  specifications  for  the 
subdivisions  of  the  stratum  and  cell  atmospheric  structure.  Each  card  of  this  set 
contains  the  altitude  of  a  stratum  bottom  (meters),  the  width  of  the  wind  cell  bottom 
edges  (assumed  square)  within  this  stratum  (meters),  and  four  coordinates  that 
indicate  the  horizontal  limits  of  this  stratum  (meters)..  Here  also,  the  data  cards 
need  not  be  in  ascending  order  of  altitude  since  they  are  sorted  into  that  order  by 
the  program  after  being  read,  but  the  end  of  the  data  set  must  be  marked  by  a  card 
having  the  value  999999.  0  in  the  stratum  base  altitude  position. 

In  the  next  series  of  cards  the  program  reads  all  wind  data  vectors,  one  to  a 
card.  The  position  of  each  vector  is  specified  by  three  coordinates;  its  magnitude 
and  direction  are  specified  by  three  vector  components.  The  order  of  these  cards 
is  completely  immaterial,  but  the  end  of  the  deck  of  data  vectors  must  be  marked 
by  a  card  having  the  value  999999.  0  in  the  vector  altitude  position.  A  maximum  of 
299  data  vectors  may  be  provided.  Table  9  summarizes  the  card  input  to  M-CWINT*. 


TABLE  9 


SUMMARY  OF  CARD  INPUTS  TO  SUBROUTINE  MKWIND 


' 

Card 

Number 

Content 

Variable  Names 
and  Format 

1 

Time  (seconds)  at  which  the  forthcoming  wind 
data  set  is  to  be  updated,  a,  (3  (Eq.  21) 

ENDTIM.  ALPHA, 
BETA  (3F10.3) 

2 

| 

The  number  of  nearest  data  vectors  that  the 
user  wishes  the  program  to  use  in  making  a 
vector  estimate  for  each  grid  point,  the  identifi¬ 
cation  number  of  the  computation  method  that  the 
user  wishes  to  be  used  in  making  grid  point 
vector  estimates  (see  Table  8). 

NN,  NCODE  (214) 

3 

Altitude  of  first  stratum  base  (meters  above 

MSL),  width  of  wind  cells  in  the  stratum,  co¬ 
ordinate  of  planes  limiting  this  stratum  on  the 
west,  south,  east,  and  north  respectively. 

(A  right-handed  coordinate  system  is  used. ) 

BOTHIT(J) 

WGRINT(J),  WLLX(J), 
WLLY (J),  WURX(J), 
WURY (J),  J  =  1 
(6F10.3) 

4 

Same  as  card  3  but  for  second  stratum 

Same  as  card  3  but 
for  J  =  2 

Last  of 
Sub¬ 
division 
Specifi¬ 
cations 

The  end  of  the  subdivision  specifications  is 
marked  by  the  number  999999.  0  in  the  stratum 
base  altitude  place 

First 

Data 

Vector 

Vector  altitude,  X  coordinate,  Y  coordinate, 
X-velocity  component,  Y-velocity  component, 

Z -velocity  component  (A  west  wind  (from  the 
west)  has  a  positive  X  component;  a  south 
wind  has  a  positive  Y  component;  the  Z  direction 
is  positive  upward)  (m  and  m/sec) 

ZS(J),XS(J),  YS(J), 

SX(J) ,  SY  (J) ,  SZ  (J) , 

J  =  1  (6F12.3) 

Second 

Data 

Vector 

Same  as  preceding  card  but  for  second  data 
vector 

Same  as  preceding 
card  but  for  J  =  2 

Last 

Vector 

Card 

The  end  of  the  deck  of  data  vectors  is  marked 
by  the  number  999999.  0  in  the  vector  altitude 
position 

* 
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Local  Circulation  System  Data 


Two  types  of  data  are  required  for  the  description  of  local  circulation  systems 
to  be  included  within  a  transport  atmosphere.  First  are  data  that  specify  the  sizes 
and  locations  of  all  local  circulation  cells,  and  second  are  the  data  that  describe  the 
wind  fields  within  each  of  the  local  circulation  cells.  Data  of  the  first  type  are  read 
by  subroutine  RDCIRS,  while  the  data  actually  describing  the  local  systems  must  be 
read  by  the  corresponding  local  circulation  system  programs.  To  achieve  this  the 
local  system  programs  have  dual  purposes  —  dependent  upon  an  argument  value,  these 
programs  will  either  (1)  read  the  required  input  data  from  the  system  (IBSYS)  input 
tape  (and  precompute  certain  parameters)  or  (2)  compute  the  wind  vector  at  a  posi¬ 
tion  specified  in  its  argument  list. 


TABLE  10 


CARD  INPUTS  TO  SUBROUTINE  RDCIRS 


Card 

Number 

Content 

- 

Variable  Names 
and  Format 

1 

Coordinates  of  planes  that  bound  the  Jth  local 

CRMINX(J),  CRM  A  XX  (J) 

circulation  system  cell  on  the  west,  east,  south, 

CRMINY(J),  CRMAXY  (J) 

and  north,  respectively,  and  the  circulation 

NCRTYP(J) 

type  identifier, 

(4E12.  5, 13) 

Last 

The  end  of  the  deck  of  cell  descriptions  is 

Blank 

Card 

marked  by  a  card  having  a  circulation  type 
identifier  of  zero  (a  blank  card  will  do).  Note 
that  if  no  local  circulation  cells  are  to  be  used 
in  a  transport  run,  a  blank  card  must  still  be 
provided  to  RDCIRS. 

Table  10  summarizes  the  input  cards  to  subroutine  RDCIRS,  The  first  card 
read  by  RDCIRS  contains  the  coordinates  of  the  four  planes  (perpendicular  to  the 
coordinate  axes)  that  bound  a  local  circulation  cell  and  also  a  number  that  identifies 
the  type  of  associated  local  circulation  system  according  to  the  following  designations: 


Identification 

Number 

0 

1 

2 

3 

4 

5 


Local  Circulation  Type 

Marks  the  end  of  the  set  of  local  circulation 
cell  descriptions 

Mountain  wind  (MTWND1) 

Ridge  wind  (RGWND1) 

See  breeze  (CBREZ1) 

Not  assigned 

Not  assigned 


The  reading  of  all  descriptions  is  terminated  when  a  blank  card  is  encountered; 
therefore,  if  no  local  circulation  systems  are  in  use,  a  blank  card  is  still  required 
by  RDCIRS.  The  maximum  allowable  number  of  local  circulation  systems  is  cur¬ 
rently  set  at  5. 

RDCIRS  establishes  the  order  of  the  entries  in  a  table  of  local  cell  descriptions 
by  storing  the  cell  data  sequentially  as  it  is  read.  Later  calls  are  made  to  the 
associated  local  circulation  system  programs  in  the  established  sequence  so  that 
these  programs  may  read  the  data  that  they  require.  Table  11  presents  a  summary 
of  the  data  decks  required  by  each  of  the  three  available  local  circulation  programs. 
More  detailed  descriptions  of  these  data  may  be  found  in  the  individual  discussions 
of  the  local  circulation  system  programs.  (Mks  units  are  used.) 

Topography  Data 

Two  basically  different  forms  of  topography  may  be  specified  for  use  by  the 
Transport  Module  in  regions  not  covered  by  local  circulation  systems.  They  are 
referred  to  here  as  fully  planar  topography  (a  single  plane)  and  piecewise-planar 
topography  (many  segments  of  planes).  The  choice  of  method  of  topographic  de¬ 
scription  is  communicated  to  the  Transport  Module  by  the  user  in  the  control  param¬ 
eter  IC(1)  (set  Table  6)  which  must  be  given  the  value  1  if  the  fully  planar  option  is 
desired  and  0  if  not.  In  the  fully  planar  option,  the  program  merely  reads  from  a 
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TABLE  11 


SUMMARY  OF  CARD  INPUTS  TO  SUBROUTINES  MTWND1,  RGWND1,  AND  CBREZ1 


Card 

Number 

Content 

Variable  Names 
and  Format 

Subroutine  MTWND1 

1 

X  and  Y  coordinates.  Maximum  height,  and  half  width 
of  the  Jth  mountain 

XM(J),  YM(J),  H(J), 

A(J),  (4F10. 3) ,  J  =  1 

2 

Same  as  card  1  but  for  2nd  mountain 

Same  as  card  1  but 
for  J  =  2 

Last 

Card 

The  end  of  the  deck  of  mountain  descriptions  is  indicated 
by  a  card  having  a  zero  in  the  mountain  height  position 

Subroutine  RGWND1 

1 

X  and  Y  coordinates  of  a  point  on  the  1st  ridge  line,  height 
of  1st  ridge,  half  width  of  1st  ridge,  orientation  angle  of 

1st  ridge  (radians  clockwise  from  time  north) 

XM(J),  YM(J),  H(J), 

A(J),  B(J),  J  =  1 
(5F10.3) 

2 

Same  as  card  1  but  for  2nd  ridge 

Same  as  card  1  but 
for  J  =  2 

Last 

Card 

The  end  of  the  deck  of  ridge  description  is  marked  by  a 
card  having  a  zero  in  its  ridge  height  position 

Subroutine  CBREZ1 

1 

Sine  of  the  latitude  of  the  sea-breeze  cell,  Guldberg-Mohn 
friction  parameter,  the  total  extent  of  the  sea  breeze, 
average  ground  temperature 

SNPHI,  SGMA,  ELX, 
THET,  (4F10.  3) 

2 

Wind-field  extrapolation  attenuation  constant,  thermal 
eddy  diffusivity,  coastline  orientation  angle,  unperturbed 
temperature  gradient,  number  of  harmonics  used  in 
temperature-time  description 

WW,  AKY,  B,  GRAD, 
NN»(4F10. 3,  110) 

3 

Magnitude  of  1st  temperature  differential,  phase  of  1st 
temperature  differential 

DELTX(N),  TAUX(N), 

N  =  1 

4 

Same  as  card  3  but  for  2nd  harmonic 

Same  as  card  3  but 

for  N  =  2 


card  the  height  of  the  planar  topographic  surface  and  uses  it  throughout  transport. 

If  the  piecewise-planar  option  is  specified,  the  program  expects  that  a  topographic 
data  tape  has  been  prepared  and  is  available  for  use.  This  tape  carries  the  identifi¬ 
cation  word  IHTOPO  and  its  data  structure  is  indicated  in  Table  12.  Complete  details 
are  given  in  Appendix  C.  (Mks  units  are  used. ) 


TABLE  12 

THE  BINARY  TOPOGRAPHY  TAPE  DATA 


Record 

Number 

Content 

Variable  Names 

1 

Tape  identification  symbol  (IHTOPO), 
overall  topography  area  limits,  and  the 
number  of  data  blocks 

DENTI,  TXLL,  TXLU, 
TYLL,  TYLU,  NBLCK 

2 

Arbitrary  topographic  identification 
card  image 

TOPED  (J),  J  =  1,  12 

3 

Topography  table  of  contents  (first  part) 
for  all  data  blocks 

TOPOLM(I,  J),  I  =  1,4, 

J  =  1,  NBLCK 

4 

Topography  table  of  contents  (second  part) 
for  all  data  blocks 

ITOPLM(I,  J),  I  =  1,3, 

J  =  1,  NBLCK 

5 

2~D  table  of  data  for  first  data  block 

s(L  J),  i  =  i,  n, 

J  =  1,  JJ 

6 

1-D  table  of  data  for  first  data  block 

SUBSID(K),  K  =  1,  KK 

7 

8 

Same  as  records  5  and  6 
but  for  second  data  block 

N 

End  of  file 

The  Transport  Module  uses  subroutine  RDTOPO  to  read  blocks  of  topographic 
data  into  memory  from  the  tape  IHTOPO.  Subroutine  HEIGHT  is  used  to  determine 
the  elevation  of  the  topographic  surface  at  the  horizontal  position  of  a  particle. 

Two  other  programs,  TO  PIN  and  DATERR,  which  are  not  strictly  part  of  the 
Transport  Module,  have  been  written  to  prepare  and  check  the  topographic  data 
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tape  and  to  wr'*e  the  piecewise-planar  topography  tape  IHTOPO  Since  these  programs 
are  out  of  the  mam  stream  of  the  Transport  Module,  their  inputs,  operations,  and  out¬ 
puts  will  not  be  described  here  but  rather  are  dealt  with  in  Appendix  C  However 
the  contents  of  tape  IHTOPO  are  as  follows 

The  topographic  data  must  be  divided  into  blocks  and  only  one  block  at  a  time 
can  be  accommodated  in  core  storage  during  transport,  With  reference  to  Table  12 
we  see  that  the  first  record  consists  of  the  tape  identifier,  the  coordinate  limits  of 
the  area  covered  by  all  the  data  blocks  on  the  complete  topography  tape,  and  the  num¬ 
ber  of  topography  data  blocks  on  the  tape  The  second  record  consists  of  a  Hollerith 
card  image  that  contains  a  descriptive  comment  that  identifies  the  particular  topo¬ 
graphic  data  on  the  tape  To  describe  the  contents  of  the  remaining  records,  we 
must,  briefly  review,  as  follows,  the  nature  of  the  topography  description 

1.  Consider  the  topographic  unit  to  be  a  surface  segment  that  projects  a 
square  area  onto  the  z  =  0  plane  such  that  the  sides  of  the  projected 
square  are  parallel  to  the  coordinate  axes  (north-south  and  east-west) 

2.  Location  coordinates  of  all  topography  units  are  specified  in  the  z  •  0 
(horizontal)  plane  of  the  macrowind-field  coordinate  system 

3  Topography  descriptions  are  arranged  on  tape  IHTOPO  in  data  blocks 

each  of  which  consists  of  arrays  ((S(I,  J),  I  1,11)  J  -1,  JJ)  and  (SUBSID«K, 

K-- 1,  KK). 

4,  Array  S  represents  a  rectangular  area  in  the  z  0  plane  (with  sides 
parallel  to  the  x  and  y  axes)  that  otherwise  is  arbitrarily  placed  within 
the  limits  of  the  overall  topo  area.  Its  minimum  x  and  y  coordinates 
are  BXLL  and  BYLL  (in  meters)  It  is  subdivided  by  a  square  grid  with 
interval  GRINT  (meters)  Each  element  S(I,  J)  of  array  S  has  the  follow¬ 
ing  significance: 

a.  If  S(I,  J)  is  positive,  then  S(I,  Jj  is  the  altitude  of  the  (I ,  J >th  topo¬ 
graphy  unit  it  represents  in  the  array  area  (meters  above  mean 
sea  level). 

b.  If  S(I,  J)  is  negative,  then  the  fixed-point  equivalent  of  j  S<I ,  J>  ■  is 
the  index  of  an  element  in  array  SUBSID  that  is  the  first  element 
of  a  quartet  (see  item  o  below). 
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The  indices  I  and  J  of  the  S(I,  J)  array  represent  increments  of  distance 
GRINT  along  the  x  and  y  axes  respectively.  S(l,  1)  represents  the  grid 
element  in  the  lower  left  corner  of  the  area.  S(2, 1)  is  the  next  element 
to  the  right  of  the  corner,  S(l,  2)  is  the  element  just  above  the  corner,  etc. 

Array  SUBSID  consists  of  a  sequence  of  groups  of  four  elements  (quartets) 
each  of  which  represents  the  four  square  areas  (topography  units)  result¬ 
ing  from  an  equal  subdivision  of  a  topography  unit.  Each  element 
SUBSID (K)  of  array  SUBSID  has  the  following  significance: 

a.  If  SUBSID (K)  is  positive,  it  is  the  altitude  of  the  topography  unit 
it  represents  (meters  above  mean  sea  level). 

b.  If  SUBSID(K)  is  negative,  then  the  fixed-point  equivalent  of 

|  SUBSID  (K)  |  is  the  index  of  an  element  in  array  SUBSID  that 
is  the  first  element  of  a  quartet. 

We  see  that  array  SUBSID  allows  (in  principle)  an  unlimited  capability 
for  successive  subdivision  of  the  original  topography  units  defined  in 
array  S.  Furthermore,  a  unique  altitude  is  specified  for  each  topo¬ 
graphy  unit  that  results  finally  from  the  successive  subdivision  process. 
The  sequence  numbering  of  quartet  members  is  as  follows:  lower  left 
SUBSID(K),  upper  left  SUBSID (K+l),  upper  right  SUBSID(K+2),  lower 
right  SUBSID  (K+3). 

The  correspondence  between  arrays  S  and  SUBSID  is  as  follows. 

Picture  the  array  S  to  be  set  up  in  the  fashion  of  a  conventional  matrix 

S(l,l)  S(l,  2)  S(l,  3)  ....  S(I,JJ) 

S (2 ,  1)  S(2,  2)  S(2,  3)  ....  S (2 ,  JJ) 

•  •  • 

•  •  • 

S(II,  1)  S(II,  2)  S(II,  3)  ....  S(II,JJ) 

The  sequence  of  quartets  in  the  array  SUBSID  is  determined  by  scanning 
through  each  row  of  the  S  matrix,  in  its  numerical  sequence,  from  left  to 
right.  Each  negative  element  so  encountered  in  the  matrix  starts  the  next 
quartet  in  SUBSID. 
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With  reference  to  the  discussion  above  we  now  can  define  records  3  and  4  on 
tape  IHTOPO.  Together  these  records  provide  a  complete  table  of  contents  for  the 
remainder  of  the  tape  by  defining  all  of  the  data  blocks  on  the  tape.  For  each  of  the 
arrays  TOPOLM(I,  J)  and  ITOPLM(I,  J),  the  index  J  identifies  the  data  block  sequence 
number  (J  =  1,  2,  3,  4).  The  index  I  specifies  the  parameters: 


I 

TOPOLM 

ITOPLM 

1 

BXLL 

II 

' 

2 

BYLL 

JJ 

3 

1  GRINT 

KK 

4 

TTOPO 

The  variable  TTOPO  gives  the  maximum  topography  altitude  specified  in  the  data 
block.  All  distances  are  specified  in  meters,  and  altitudes  in  meters  above  mean 
sea  level. 

Then  on  the  tape  IHTOPO  the  arrays  S  and  SUBSID  follow  for  each  data  block. 

Output  Description 

Printed  Output 

The  printed  output  of  the  Transport  Module  is  largely  self-explanatory  since 
extensive  labeling  is  done.  Table  13  presents  a  summary  of  this  output.  Not  in¬ 
cluded  are  the  (optional)  transport  trace  printouts  which  are  described  in  the  dis¬ 
cussion  of  subroutine  LINK7. 

Binary  Output 

The  primary  output  of  the  Transport  Module  is  a  magnetic  tape  containing  a 
binary  mode  complete  description  of  all  cloud  subdivisions  that  landed  during  the 
transport  run.  In  addition,  the  Transport  Module  prepares  printed  output  designed 
to  identify  and  describe  the  transport  run  in  sufficient  detail  so  that  the  resulting 
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TABLE  13 


PRINTED  OUTPUT  OF  THE  TRANSPORT  MODULE 


Output  j 
Sequence 

Content 

Variable  Names 

1 

Run  identifiers  for  LINK1,  LINK2,  LINK4,  and  transport 

DETID(J),  J  =  1,  12 
CRED(J),  J  =  1,  12 
PSEID(J),  J  =  l,  12 
TID(J),  J  =  l,  12 

2 

Transport  control  array  (Table  6) 

IC(J),  J  =  1,  18 

3 

Transport  time  limit  (sec) 

TLIMIT 

4 

Fallout  particle  density  (kg/m^) 

ROPART 

5 

Topographic  data: 

a.  If  continuous  planar  topography  is  specified, 
the  topography  altitude  (meters)  is  printed. 

b.  If  a  piecewise  planar  topography  is  specified, 

the  topography  tape  (IHTOPO)  identifier  is  printed. 

TTOPO 

TOPOID(J),  J=l,  12 

6 

Wind-field  identifier 

WID(J),  J  =  1, 12 

7 

Atmospheric  properties  used  for  particle  fall  rate 
calculations:  height  of  stratum  bottom,  viscosity,  and 
density  (mks  units) 

height  not  stored, 
ATEMP,  RHO 

8 

Replacement  time  of  the  wind  field  whose  description 
follows  (items  9  and  10)  (sec) 

ENDTIM 

9 

Wind  vector  input  data  array: 

z,  x,  y  coordinates,  and  x,  y,  z  wind  vector 
components  (meters  and  meters  sec-1) 

ZS(J),  XS(J), 

YS(J),  VX(J), 

VY (J),  VZ(J) 

10 

Macrowind-field  definition  input  data  array: 

bottom  height  of  stratum, grid  interval,  minimum 
x  and  y  coordinates, maximum  x  and  y  coordinates 
(all  in  meters) 

BOTHIT(J), 

GRINT(J), 

WLLX(J), 

WLLY(J), 

WURX  (J) , 

WURY  (J) 

11 

If  IC(7)  =  1,  the  wind  vectors  at  each  grid  point  of 
the  macrowind  field  are  printed  in  the  following 
arrangement: 

Level  (stratum)  number,  altitude  of  the  bottom  of 
the  stratum,  x  components  of  all  wind  vectors 
in  the  southernmost  east-west  row,  y  components 
of  all  wind  vectors  in  the  same  row,  z  components 
for  all  vectors  in  the  same  row,  repeat  for  the  next 
row,  etc. ;  repeat  for  the  next  level,  etc. 

J,  BOTHIT(J), 

VS,  VY,  VZ 

12 

A  one  line  in-core  particle  array  summary  printout  is 
executed  on  each  pass  through  subroutine  DUMPP:JTEST, 
JTEST1  (Table  2), number  of  blanks,  number  of  grounded 
particles,  number  of  lost  particles,  number  of  particles 
on  the  topography  boundary,  number  of  particles  on  the 
time  boundary,  and  number  of  particles  on  the  wind- 
field  boundary. 

JTEST,  JTEST1, 
NFREE.NG, 

NLOST,  NTO, 

NTI,  NW 

13 

If  IC(8)  =  0,  properties  of  all  "lost  particles"  are  printed: 
z,  y,  z  coordinates,  time,  diameter,  and  mass 
per  unit  area. 

XP,  YP,  ZP, 

TP,  PS,  FMAS 
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tape  of  grounded  cloud  subdivisions  can  he  used  lepetitively .  This  is  achieved 
by  printing  the  identifiers  oi  all  the  sets  oi  input  data  that  were  used  by  the  Trans¬ 
port  Module  as  well  as  recording  some  of  the  data  directly  The  content  of  the  inter¬ 
mediate  output  tape  produced  by  the  Transport  Module  and  subsequently  used  by  the 
output  processor  as  an  input,  is  set  forth  in  Table  14  Mks  units  are  used  except 
for  particle  diameters  which  are  in  microns 

Data  Structures  for  Seconda ry  Memory  T ape s 

Three  secondary  memory  tapes  may  be  used  by  the  Transport  Module  to 
temporarily  record  descriptions  cl  particles  that  have  been  transported  as  far  as 
possible  using  the  data  currently  available  in  primary  memory  but  which  are  still 
to  be  transported  further,  In  the  event  that  room  must  be  made  in  the  Transport 
Module's  particle  arrays  lor  incoming  particle  descriptions,  the  transported  ibut 
not  yet  grounded]  particles  may  be  collected  and  written  out  onto  a  tape  for:  (1) 
particles  beyond  the  in-core  memory  topography,  -2,  particles  beyond  the  in-core 
memory  wind  field,  or  (3)  particles  awaiting  the  next  updating  of  the  wind  field. 

Since  all  of  these  tapes  are  subsequently  .,ut  symbolically  into  the  place  of  the 
regular  particle  input  tape  IPAR1N  they  must  all  have  the  same  data  structure  as 
the  particle  data  portion  of  IPARIN  That  structure  consists  of  pairs  of  data 
records  arranged  in  sequence  on  the  tape  -  the  first  record  of  a  pair  is  a  count  of 
the  number  of  particle  descriptions  to  be  lound  ir,  the  second  record  of  the  pair. 

The  end  of  the  data  set  is  always  marked  by  a  zero  particle  count  record. 


TABLE  14 


THE  GROUNDED  PARTICLES  TAPE,  IPOUT 
(Binary  output  of  the  Transport  Module) 


Logical  Record 
Number 

Record  Content 

Variable  Names 

1 

Identification  word  (IPOUT),  spare,  time  at  which 
transport  was  terminated,  width  of  cloud  sub¬ 
divisions  at  time  of  definition,  and  density  of  fall¬ 
out  particles 

POUT,  NCL, 

TLEMIT,  BZ, 

ROPART 

2 

Fission  yield,  mass  of  soil  lifted,  solidification 
temperature,  time  of  solidification,  ln(SD)t 
and  3  spares 

FW,  SSAM,  SLDTMP, 
TMSD,  SIGMA, 

SPARE  1.SPARE2, 
SPARE3 

3 

Run  identifiers  for  Initial  Conditions,  Cloud  Rise, 

Cloud  Rise- Trans  port  Interface,  Transport,  and 

Wind  Field 

(DETID(J),  J=l,  12), 
(CRTD(J),  J=l,  12), 
(PSEID(J),  J=l,  12), 
(TID(J),  J=l,  12), 
(WID(J),  J=l,  12) 

4 

Number  of  particle  size  ranges 

NPS 

5 

Central  particle  size,  associated  mass,  associated 
activity,  *  and  surface-to-volume  ratio  for  each  size 
range 

PS(J),  A(J), 

PACT  (J) ,  SV(J) , 

J=l,  NPS 

6 

Number  of  atmospheric  strata 

NA 

7 

Atmospheric  viscosity  and  density  for  each  stratum 

ATEMP(J),  RHO(J), 
J=l,  NA 

8 

Topography  identifier 

TOPID(J),  J=l,  12 

9 

Number  of  particle  (cloud  subdivision)  descriptions  in 
the  following  data  block 

N 

10 

X  coordinate,  Y  coordinate,  time,  particle  size,  and 
mass  per  unit  area  associated  with  each  of  N  particles 

NP(J),YP(J),TP(J), 
PS(J),  FMAS(J), 

J=l,  N 

11 

Same  as  record  9 

12 

Same  as  record  10 

Pairs  of  records  like  9  and  10  are  repeated  until  all 
grounded  particles  are  recorded 

Last  record 

The  end  of  the  ground  particles  data  set  is  indicated 
by  a  particle  count  of  zero 

N=0 

Not  yet  calculated  unless  the  user  has  provided  a  LINKS  particle  activity 
calculation 


t 


See  LINK1  glossary  in  DASA-1800-II, 
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FORTRAN  LISTINGS 

FORTRAN  listings  for  the  subroutines  are  included  on  the 
following  pages. 
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DUMP  LIST. DECK, M94/2 
SUBROUTINE  DUMPP 

T.W.SCHWENKE  TECHNICAL  OPERATIONS  RESEARCH 
28  NOVEMBER  1966 


DUMP 
DUMP 
DUMPP  DUMP 


************************************************* *****************quMP 

DUMP 

THIS  SUBROUTINE  SELECTS  ThE  BEST  sE  T  uF  PARTICLES  Tu  DUMP,  DUMP 

SORTS  IT  InTO  THE  LuW  NuMdERED  EnD  uF  THE  PARTICLE.  AkRAYs,  WRITES  DUMP 
IT  OUT  ONTO  THE  APPROPRIATE  TAPt  AND  ADJUSTS  PARTICLt  StT  cuUNTtRSDuMP 
THE  SET  SELECTED  FOR  DUMPING  Is  THE  GROUNDED  PARTICLtS  ScT  WHEN-  UUMP 
EVER  DUMPING  IT  WOULD  MAKE  SUFFICIENT  RuOm  FuR  The  InCumIno  block  DUmP 
OF  N  PARTICLES.  IF  THIS  IS  NOT  THE  CASE,  THE  LARGEST  PARTICLE  SETDOMP 
IS  SELECTED.  DUMP 

DUMP 

*******************  GLOSSARY  ******************************* ****duMP 

DUMP 

FOR  ADDITIONAL  GLOSSARY  ENTRIES  SEE  SUBROUTINE  LINKS  DUMP 

DUMP 

FMAST  SEE  XPT  DUMP 

I C (  )  THE  CONTROL  INTEGER  ARRAY.  Set  LINK  5  GLOSSARY  DUMP 

ICun  bluCKING  SukT  MuDt  INDICATOR.  0  =  FIRST  PAjs,  +  =  duT  T  UM  LuuPDuMP 

,-=  TOP  LOOP  DUMP 


FMAST 
IC  (  ) 

I  Cun 

IOTOPO 
IOWIND 
I PARUT 
I  POUT 
IRsET 


I  SuuT 
J 


uT 

U  T  ES  T 
U  I  ts  T  1 


NALUF  T 
NBnAX 


nFKEE 

NG 

nLus  I 


SEE  XPT 

THE  CONTROL  INTEGER  ARRAY.  Set  LINK  5  GLOSSARY 
bluCKING  SukT  MuDl  INDICATOR.  0=FIRST  PAts,  +=doTTuM  Luu 
,-=  TOP  LOOP 

THE  OFF-TOPO  MEMORY  TAPE  NUMBER 
THE  OUT-UF-wIND  DATA  MEMORY  TAPE  NUMBER 
TH£  TIME  L I n I T  bOUNDARY  MEMORY  TAPE  NUMBER 
The  TRANSPORT  MuDUct  1  n  I  ERi-i  EO I  AT  t  uuTPJT  TAPE  NUMBER 
A  MARKtK  Fok  Trit  ulJCKInu  buRT  WHlon  InuIoATeS  oY  1  He 
VALUE  1  TnAT  Tne  I'ei-iPORmRY  jIuKhue  eIne  FoR  A  PmRTIcle 
Is  LOADED  AnD  ivtusT  BE  uALlY  jnLUmDeu 

THE  FORTRAN  sYblEH  uUTPuT  TAPE  i.UnbER 

a  General  inuex.  in  i he  olucnInu  suri,  ii  is  usld  to 
iDtNTiFY  the  particle  that  was  just  classified 

BOTTOM  Lot  3  INDtX  FUR  Trit  BLOCKING  SORT 
bLANK  LINE  INDEX  FOR  THt  BLOCKING  BURT 
USED  TO  RECORD  THE  INDEX  UF  A  FREE  (BLANk)  LINe  In  ThE  DUMP 
boTTun  PAnT  oF  Trit  P«KilCLt  Ai\R«Y  DUKli.o  The  Conool  1  DhT  I  unduMP 
Or  N  bLANKb  InTu  THE  TuP  oF  The  AkRAY  DUMP 

ToP  LOOP  INDtX  FuR  The  oLUCKInG  ooi<T 

A  T  EMPORARY  oTukAGE  ThAI  eVENIuALeY  CoNIAIno  THt  NuMbcR 
UF  PARTICLE  ueSCRIPTIUNs  In  fnt  CLAoS  To  lie  DUnPEo 
A  TEhPokAkY  sToKAoe  wnICn  eVeNTUmlLY  ConThIno  The  NUMBER 
INuICAIInG  The  (CoASo)  oF  PARTICLt  ueoCRIPTIon  To  de 

dumped 


The  NUMBER  or  PARTICleS  IN  THE  uATA  bLOCk 


IS  WAITINu  DUMP 


TU  dt  READ  NeXT  AT  The  TIME  when  DUMPP  Is  CALLED  DUMP 
TnE  DImENSIoneD  (hAXIMUM)  SIZE  uF  The  PARTICLE  ARRAY  DUMP 
The  MAXIMUM  NUnbtR  oF  PARTICLt  uEsCRIPTIuNS  ThaT  Can  be  uuMP 
INCLUDED  IN  A  SINGLE  bLLCK  AS  WRITTEN  UN  ANY  MEMORY  OR  DUMP 
INTERMEDIATE  OUTPUT  TAPE  DUMP 

the  number  of  blank  lines  (denoted  by  fmasi  >=o>  in  the  Dump 

PARTICLE  ARRAYS  DUMP 
A  COUNT  OF  In-CuRe  GRuUNuED  PARTICLES  DUMP 
A  COUNT  uF  Trit  PArTICLEs  i N  Tne  PARTICLE  AkRAY  buT  luCATEODuMP 
BEYuND  THE  CuuRDlNATt  LIMITS  uF  The  wind  UR  TuPu  data  SETSDUMP 
A  TEMPORARY  sTuRAGE  FuR  Trit  ihUMdER  uF  The  TAPE  unTu  WHICH  JUMP 
THE  DUMP  IS  To  BE  MADE  DUMP 
A  CUuNT  OF  In-cuRe  PARTiCLto  ThhT  nAVt  KtACritU  The  Tint  UUMP 
BOUNDARY  (ENDTlMi  DUMP 
A  CUuNT  OF  IN-CuRt  PAk  T I CLt  S  BtYOND  The  In-CuRe  TuPo  uATA  DUMP 
A  COUNT  OF  IN-CORE  ^ARTICLES  BEYOND  THt  IN-CORE  WIND  DATA  DUMP 
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non  n  n 


c 

N 1 

AN  ASSIGNED  Gu  TO 

BRANCH 

POINT  FOk 

The.  clao^ifyihg 

COdE  DUMP 

61 

c 

N2 

SEE  N 1 

DUMP 

62 

c 

N3 

SEE  N1 

DUMP 

63 

c 

N4 

SEE  N 1 

DUMP 

64 

c 

PST 

SEE  XPT 

DUMP 

63 

c 

TPT 

SEE  XPT 

,  DUMP 

66 

c 

XPT 

TEMPORARY  STORAGE 

FOR  XPI 

)  SOMETIMES  USED  TO  START 

A'  SORTDuMP 

67 

c 

YPT 

SEE  XPT 

DUMP 

68 

c 

2PT 

SEE  XPT 

DUMP 

69 

c 

DUMP 

70 

c 

If'ificii-vf'JcTfrifr'ifr'iMfif'K'icx-ifr-jfr'jfr 

■*■*■*#  ***£0,^ 

71 

c 

DUMP 

72 

COMMON 

/ SE  T 1 / 

DUMP 

73 

1 

U 1  AM  »DET Id ( 1 2  ) 

9 I R I ot 

9 

I  EXEC  ♦ 

I  SIN  ♦  ISduT 

•  Dump 

74 

2 

SD  *  SPAR  ♦ 

SSAM 

9 

Ti'iE  » 

T  MP  1  »  T  mP  2 

♦  DUMP 

75 

3 

T  2  M  ,  U  ♦ 

VPR 

9 

w  * 

X  ♦  Z 

♦  UuMP 

76 

4 

WHY  1 4  )  t  RMIN  ♦ 

I  D I  oT  R 

9 

SPAR  1  ♦ 

SPAR  2  ♦  SPARS 

>  DUMP 

77 

5 

SPAR4  >  oPAR5  • 

oPAR6 

9 

oPAR  7  . 

oPAR8  »  SPARS 

DUMP 

76 

DUMP  79 


k  k  k  k  Hr  Hr 

7f  > 

-jfxix'X'S'-xic-jv'x 

w  k  k  Hr  ik  He  it  k 

kkkkkkkkkkkk 

’<”i'D'-<MP 

DUMP 

COMMON 

/SE  T2 / 

DUMP 

1 

6  9 

SUBo I D 

.  GRINT 

BXLL  ♦ 

BXLu  ♦ 

BYLL 

Dump 

2  ♦ 

BYLu  , 

TXLL 

9  T  XLo 

TYLL  . 

T  YLu  9 

XGZ 

DUMP 

3. 

YGZ  . 

NBLCX 

•  HTOPO 

r  TuPu  , 

I  L  I  l*l  ♦ 

J  L  I  M 

DUMP 

4  9 

KLIM  . 

I  I 

.  JJ 

kKl  9 

XP  ♦ 

.  YP 

DUMP 

5  9 

ZP 

FMAS 

.  TP 

PS  . 

VX  ♦ 

VY 

Dump 

6  * 

vz  . 

IL 

.  JL 

I BADD  . 

G  K  l  Im  T  9 

NSTkAT 

DUMP 

7* 

WL  LX  . 

WLLY 

«  WORX 

WORY  • 

BOTHIT  , 

I  PAR  IN 

UUMP 

8  . 

IOTUP0  . 

IOW I ND 

.  IHToPO 

IPuUT  . 

IPAROT  ♦ 

JT0P1 

Dump 

9  ♦ 

JWINQ1  . 

I  RkOR 

.  T'.IMIT 

cNDT IM  . 

IC  ♦ 

IbYPAS 

DUMP 

1  . 

J  TOP J  , 

NLOST 

.  N  3 

NTO  . 

NT  I  ♦ 

Nw 

Dump 

2  ♦ 

NALOFT  , 

JTIME1 

.  NBMAX 

NFREE  . 

N  9 

NCL 

DUMP 

3. 

crmaxy  , 

CRUHT 

.  ncrtyp 

♦ 

BZ  . 

CRM  I  NX  ♦ 

CRM I  NY 

DUMP 

4  9 

uo  . 

ON 

.  CS 

NLOC1R  . 

DTLUC  ♦ 

ATEMP 

DUMP 

5  . 

Rho  . 

NA 

.  TGZ 

DTMAC  . 

F  ROG  9 

CRMAXX 

DUMP 

6  9 

ROPART 

DUMP 

DIMENSION  T  UPULM  (  4  »  4  ) 

•  N IN  TAR  I  4  ) 

♦  IT  OPLMI 3 .4 ) 

DUMP 

DIMENSION  S(1  .10) 

♦ oUBo I D I  400 ) 

»IC( 18) 

DUMP 

DIMENSION  XPI2U0) 

♦YPI 200) 

.ZP I  200 ) 

♦  FMAS I  200 ) 

DUMP 

DIMENSION  TPI2U0) 

.Pol  200) 

.ATEMPI 260 ) 

♦  RHO I  260 ’ 

DUMP 

DIMENSION  VX I  15  00) 

♦  VY  I  1500 ) 

.VZ I  1500) 

♦  I  L I  70  ) 

DUMP 

DIMENSION  JLI7U) 

.  I  BADDI 70  ) 

.WORX ( 70 ) 

DUMP 

dimension  wgrinti 

T  1) 

. WLLX I  70 ) 

♦WLLY 1 70 ) 

DUMP 

DIMENSION  WURYI70) 

.BOTHI T I  70  ) 

. SN I  6 ) 

♦  CS I  6 ) 

DUMP 

DIMENSION  CRM I NX  I  6 ) 

.CRMAXX I  6  ) 

♦  CRM  I  NY  1 6  ) 

♦  CRMAXY I  6 ) 

DUMP 

DIMENSION  CRUHTI6) 

.NCRTYPI6  ) 

♦0016 ) 

DUMP 

DUMP 


X 

2 

3 

4 
6 

7 

8 
9 


DUMP 

FORMATl XH1.4XI7.13H  LUST  PA1TICLES)  DUMP 
FORMAT ( /6X.2HXP , 1 0X2H YP  *  1  OX ♦ 2HZP *10X*2HTP»10X*2HPS*8X»4HFmAS)  DUMP 
FORMATl IX.  6E12. 3)  DUMP 
FORMAT ( 1 U I  5 )  DUMP 
FORMATl 5X11HBEYOND  TOPO )  DUMP 
FORMAT  I 5X13HT IME  BOUNDARY  \  DUMP 
FORMATl 5X11HBEYOND  WIND)  DUMP 
FORMAT  I 5X8HGROUNDED)  DUMP 


80 

81 

8z 

83 

84 
83 
88 

87 

88 

89 

90 

91 

92 

93 

94 
93 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 
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Q  x  v  *  x  X  V  if  x  ^  if  x  w  x  X  it  *  w  k  *  #wif  x  x  >■  x  if  x  «  > 

c 

DATA  PR0GRM/6H  DUMPP/ 

C 

x*  x  w  iirif  w  >i’ w'rf*>Hf  ifxxirxx  xx  «;  w  <i  <f  x  k  irw  x  w  xxx  x  wx  > 
£  ■&  It  ii  ^  He  it  Ifr  'k  tc  >•  ^  vc  »c  >r  x  x  >4  v  >•  vc  x  x  w  if  >'  w  wvwwifitxwic  ■>  «*  «  x  w  x  ^  > 


DUMP 

DUMP 
DUMP 
DUMP 

.-  ***  *  if  *  ******  **[)  UMP 

*  *  *  *  X  *  ic  »  *  V  *  >f  *  *  *  *  i *  *  *  *  **  <  K 


c 

C  131 

c 

131 

c 

C  i  3  i  2 
1512 


U3ll 

G 

c 

1511 

10 


nUST  AnY  PAkT  1  CLeo  oe  uunrieO  Tu  iiwnl  kuui'i  ruK  Tne  I  ului'i i  Nu  dLuln 

op  N  HAriTiCLtS  UK  Tu  liLMR  Int  KakT  IClc  AKkmY5»  Yes  Tu  131 

1F(N-NFREE)13U»150»151 

JTEST=u 

GO  TO  152 

wUuLU  DUMPING  Trlt  uRuuNueu  PmikTIuLlu  PRuViue  suPFICIeNT  kuuh  FOR 
T  He  dLuCA  uF  N  I  nC  On  I  NO  PmkTiCLc  l)u  sCR  iPTIuns.  Y  eG  iU  1  P  i  2 
1F(NFREE+NG-N)1511  »1p.L2»1p12 

t  PrERArE  Tu  DUMP  Trie  GRuUNDEb  PARTICLe  DEsCK  I  P  T  I  Dims 
JTEST1=1 
JTEST=NG 
GO  TO  18 

b  e  T  E  K  M I  N t  rtnluri  GeT  up  PAkTIuuEo  Tu  dOmR 

tIimu  Tne  i  ueN  T 1 F  1  lK  luTeoTl)  And  blee  (JTesT)  up  Trie  MuG  T 

NUnERuUG  CLAss  uF  pMKTICLes  In  Tne  PARTICLe  MkRmYs 

I  F  (  NLOgT-NG)  lu . 11  .  1 1 

JTEST  =  NG 

JTEST1=1 

GO  TO  '2 

JTEST=NLOST 

JTES I  1  =  2 

IF tUTtST-NTu) 13.14*14 

J1EgT=NIO 

JTEgT  1  =  3 

I F ( J  TeGT-NT 1 )15»16*io 

JTEGT  1  =  4 

JTEGT=NfI 

I  F  l  J  T  EG  I' -MW  117.18.18 

JTEST1=5 

JTEST  =  NW 

AT  Trilu  Pul  iM ’I  JTEsI  nAs  ma  A  l  nG  *  iiLuj  T  »uT  u  .  im  T  I  .  Nv»  )  • 

JTeuTj.  IWuICaI  eo  Tne  RInd  ur  KAnTIuLe  ulouk  i  P  T  i  un  Tu  be  DUnPeb 
Gee  Tne  FulluwIno  Cube  eXriL  AnA  I  1  un  run  uieGli  =  l  IriKu  p 


JTEgT  1 
VALUE 
1 
2 


NAME  UF 
CLASS  COUNTER 
NG 

NLUST 


KIND  uF  pakTIClc  UeSCK  l  r  i  I  umo  UunH 

TO  dE  DumPED  uNTu  TAPE  UunP 

GROUNDED  PARTICLEg  UukiP 

PAR  TIC  Lto  utYUNU  Trie  AKeAs  PuK  rtrtiun  uUMp 
dOTrt  f  UPU  ANU  wInDg  HAVE  DeeN  urieC-  duMP 
IF  I  ED  DUMP 

FAKTICLcs  oEyunO  Trie  LiPiITS  ur  Tne  uuHP 

TOPu  DATA  CURRENTLY  AVAILAdLe  IN  CuREuuMP 
PARTICLEG  THAT  CANNOT  dE  VALIDLY  DUMP 

TRANSPORTED  FURTHER  UnTIL  THE  WInD  DUMP 

FIELD  DEgCRIPTION  IS  UPDATED  DUMP 

PARTICLEG  dEYOND  THE  LlnllG  OF  THE  DUMP 

rtlND  DATA  CuKReNTLY  AVAlLAdLt  In  GuReuUMP 

DUMP 


147 


n  n  n  n  r> 


TEST  TO  SEE  THAT  JTEST  HAS  AN  ACCEPTAdLE  VALUE.  UNACCtPT  AdLE  TO  DUMP 


ERROR  STOP  AT  184  DUMP 

DUMP 

18  I F ( J TEST ) 164, 184. 188  UUMP 

184  1 RRUR  =  184  DUMP 

7714  lAI-L  tKptOh  (  HKuvjKi’Ii  1  i  I  oUJ  1  |  DwnH 

GO  lu  OU  DUi-'iP 


DUMP 

‘  182  lb  Tnt  iUl  IJTloI)  ur  IriL  olullTl!/  orlhi  c  k  I  nHU  inn  i-iAX  1  mui-iUoi-iP 


ALluhadLc  uu  I  ajT  uLjCa  o  i  8  l  l HoM AX ) ) .  >c~>  u  loo.  u  ump 

ld8  I  F  (  J  7  t o  I -i.dmA  A  )  1  8 1  >  i  o  1  , 1  e  o  DUMP 

C  DuMP 

U  183  Ktbtl  J  I  LJ  I  toUAL  To  I  rtt  ,’imXIi'iUM  AlLowacjLl  dluok  oUc.  to  Inn!  uunp 

o  aCGcPIAoLc  dLulk  3l2c  wlLL  ot  DUMPtD.  DuriP 


183  JTEST  =NBMAX 
C 

o  1  d  1  i'irt\L  Aoo  1  uniitm  7  o  run  Int  t  r  ;Iojli»T  oouTrod  or  I  ri  i_  Lout  i  hh  1  wiLL 
o  la7li\  oc  uotu  Tu  LLnujlrK  pakIIoll  utuLR  I P  I  i  uiij  no  lo  wHl I ntk 

C  intY  AKt  io  on  DUriPcu.  (lo  T  To  ut  uui'irtui  ok  i'ilklLY  dlmrni  mLou 

L  utLKLftoc  int  Mmnur  i\  i  n  7 1  olaoo  luu>«Tlr  oY  Int  iMomdlk  or  utoOKiP- 

C  ilulMo  AdUoI  iu  ot  DonP  t D  luftoT)  AN  D  i-irkc  HIM  m"  pkuPr 1  A  I l  0 1  I  T  1  No 

L  or  IHt  UoiPui  I  HKt  iMrtrit  IMiH.J. 

(_  1  a  1  Oo  lo  int  APP  imoh  i\  i  h  i  t  otttoliun  ouot 

181  GO  lu  l 19,8o,21 ,22.23  )  ,Jt Eoi 1 
C 

C  19  CODE  Tu  MA At  ASSIGNMEnTo  FOR  IriL  oElECTIUim  uF  GHuu/mDED  PAKIIClEo. 
C  GRuUiMUtD  PAR  ICLEO  AKt  lUtlNIiFltU  DT  i  Ht  PAiitKi,  in  i  tit 

C  oIUimo  ur  F  mA.  *  )  AND  iPl  )  uimDEim  Tnc  Loi.Diilon  i  ha  I  i  P  l  )  +  I  Li  ri  I  I 

C  UOto  NO  I  tuU/  i-  2EF  J. 

C  utoUKiPilo'I.O  or  URoUlwLo  i-  A  K  I  i  C 1 1  o  A  K  L  H  l  « H  Y  o  « R  1  i  i  t  • »  Ollio  I  no 

U  1  ImAiMOTOR  I  1  I.  i  tlM’ito  1  H  i  t  ouirol  i  nPt  iPoul 

1  9  Nu  =  iMG_  J  7  t  o  T 


DUMP 
DUMP 
u  o  HP 
uorip 
D  Jl'lp 
UUMP 
DUMP 
DUMP 
Dui-iP 
DUMP 
DUMP 
Dump 
Du  HP 

UOI’lP 

DunP 

DOI'lP 

DUi'IM 

UUMP 


c 

o  2u 
0 


L 

c 

c 

C 


2u 


N1AP=IP0UT  Dump 
ASSIGN  Sou  TU  N1  DUi«iP 
ASSIGN  4uu  TO  N3  DUMP 
AoSIGN  42  TO  N2  DuMP 
A0S1GN  42  TO  N4  DUMP 
GO  TO  99  DUMP 

DUMP 


GUUL  To  miakl  Aojlui.i'itnio  rui\  int  otLtoTIUH  ur  PAKTlCLto  IhhT  aKl  DUMP 
Luo  I  lu  Int  1  NVt  J  I  i  oh  1  1  oiv.  irttot  PMKiioLto  hkE  iutNliFlcu  dY  h  duMP 
Mtu«l  tvc  r  i'ih  o  I  )  Ainu  h  IPl  )  *  n  1 0  n  luohlo  iLii'ilT,  int  Tint  wHlN  DuMP 

iHt  I Rrtlwrort 1  uF  pAki lotto  io  iu  o  t  Aot •  tool 

w  K  I  I  It',  oil  lo  (Ht  uYoitri  ouiPul  inPt  lo  i  i.F  unn 
int Ik  KcMuV aL  r kum  Int  IkhlopokI . 

HLutf=NLUST-JT£ST 
N  T AP  = I  SOU  T 
ASSIGN  Sou  TO  Ni 
ASSIGN  42  Tu  N2 
GO  TO  99 


PhkI lotto  nkt  MtKtLYDUMP 
Int  KtotAkoricR  ur  DUMP 

DUMP 

DuMP 

DUMP 

dump 

DUMP 

DUMP 


C  DUMP 

C  21  CODE  Iu  MAAt  AoS  I  GNi'itH  I  o  FUR  Trtt  otLtGTluiM  ur  PHKTloLto  Tnni  HnVt  duMP 

C  Gunt  dtYUHU  THt  li<-U;i<t  TuPuukAPhY.  Intot  KhK[  ICLto  AKt  iutinli-  dump 

C  ritu  dY  a  PuMIiVt  FpiAoI  )  A  HD  h  Nturtlivt  TPl  )•  TntY  AKt  Dunp 

C  wKl  TTdl  uil  I  u  Int  uFi — luPu  T  APt  (  lulupu)  ouT  lr  uot  ur  IuIupu  hag  dui-iP 

C  dttH  ouPPKtoot  D  lor  otliJ/vG  I  C  (  2  )  =  1  7  »  Tnt  Y  AKt  WKllltH  oniu  IHt  DUMP 

C  GYtltM  UuTPuF  TAPt  IhgTcAd.  iHlo  lo  To  Lt7  Trie  KtotAKOritR  know  DUMP 


O  IhAT  nio  oUPPKt So  I un  up  luTUPu  HAO  LtD  TU  A  LUOO  UF  PAKTlLLtO  F KUMDuMP 


177 

178 

179 

180 
18  1 
188 
103 
1  8  A 
103 
XOO 
18  1 
188 

1  o  9 

190 

191 

198 
19  0 
194 

193 
1 9  o 
19  7 

1 9  o 

199 

200 
201 
202 

2  0  o 

20  4 
203 

8UO 

cU  I 
cOo 
209 
810 
811 
8  1  8 
8  1  0 
214 
2  1  S 
21b 

217 

218 
219 
2  20 
221 
222 

223 

224 
223 
226 
227 
828 

829 

830 
83  1 
238 
233 
834 
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rin  c.  c  n  r.  r.  r  r  r  r  n  r  n  n  n  r  n  r  r  n  n  nr 


THE  TRANSPORT  PROCESS. 
IF11C12)— 1)211*21. *211 
N  T  AP= 1 50UT 
GO  TO  213 

UluPi=i  InuICAIcs  Inrtl 
i  rio  I  kaiuKjkT  AkE  I  nuo 


1  nr\  I  Inc  Jnl  i  urF-TuHu  PAkTIoLcs  InAi 
I  nvjoc  InAi  akc  In  lukc  1  n  Tnc  PakTiol 


OuMP 

DUMP 

DUMP 

DUMP 

KcnAlN  In  uui'iP 


J  TOP  1  =  1 
NTAP  = IOTOPO 
NTu=NTU-J I ts I 
ASSIGN  3UU  TO  N2 
ASSIGN  luvj  TO  N i 
ASSIGN  42  Tu  N4 
ASSIGN  42  TO  N 1 
GO  TO  99 


CuDt  lu  i-iAkc  Aso  I  Gm'icN  T  s  PuR  Tiic  scLoCTIuN  ur  KAKllCces  InAi  lah 
Not  oo  TkanskukIcd  P  uilT  rioK  on  i  i  L  Tnc  a  i  i«u  ricLu  1  o  u ad A i ce •  Tnc- 
PAN  I  I  LOCO  Al\  C  il/Lhl  ir  UlJ  O  Y  m  Pool  I  Wc  I"  MAS  l  )  AND  m  IPl  )  CU-JAL 


Tu  cndIIi’i.  nuim-iAco  i  ir 
UScK  nAS  scT  Iol4)  =  l  To  ouaPkcSo  IPaisuI*  met  aKc  wKiMcn  uh  IHc  Dump 

sYofci'l  ooTPuT  Tapc  iu  no  I  IFY  ihc  uock.  DumP 

IF(IC(4)-l)22i*2i2*cci  DUMP 

N i AT  =  I SoUT  DUMP 

GO  TO  223  DUMP 

DUMP 

J  riMtl  =  l  iNDiCATts  inAT  Tnc  unci  amivTICccs  I  nA  I  RcmaInuuimP 

IN  Inc  I  IP  AN  OP  OK  I  A  IP  C  Inuoc  I  NA  T  mKO  in  TnC  KnrtI  Klc  akRaYS.  DUI'iP 

J  T I M  E  1  =  1  DUMP 

NT  AP=  1  PAROT  DUi-iP 

NT  i  =  N  I I-JIEsT  OuMP 

AssIGi'l  buu  TO  N2  Ourlp 

ASSIGN  42  TO  N 1  DUMP 

GO  TO  99  DUMP 


ai\c  rtKilTcn  wn  TaPc  i  A  AKw  T  *  DU  T  heN  I  he  DUMP 
jpp.xcso  IPaiwjT  i  met  aKc  aK  l  I  1  c  n  on  (nc  uun  P 


CUUc  Tu  i'ihsl  ASs  I  Givicn  f  o  roR  ihc  ScLcoTiun  or  panIIcccu  In/ii  ai\c  oumP 
□cYUNd  Tnc  LIimITS  uP  The  <v!nd  Ua  I  a  CuaKuP  I  L(  mVmIlaccc  1 n  ^urvc.<  uui'ip 
fncoc  PARTICLeo  ARc  ioc/YTiPlcu  o  Y  a  hc.jm[  Ivl  ri»iAS  (  )  and  auoIIIvcaumP 

Tp(  ).  nuKmALLY  TheY  AKc  wRiiTeN  oulu  IaPc  iuwlND*  oul  when  Ihc  dump 
uscR  nAj  scT  I  C  I  3  )  =  1  1a  uuPPKcoo  1  u  w  I  NO  *  TncY  akc  <*k  i  I  I  on  on  Ihc  d  uma 


uscR  riAj  scT  ICl3)=i  I  a  oaPPRcoo  IuwIn 
sYsTEm  ouiPUT  TAPt  Ta  NuTIrY  IriE  USCK.  DUMP 

IP(lCls)-l)231*23i*csi  DUMP 

nTAP  =  1SoUT  OUI'iP 

GU  TO  233  DUMP 

DUMP 

J  w  I  N  o  1  =  1  INDICATES  InAi  Trie  ONLY  oO  T  -aF  —  rt  I  nD-p  I  E  CD  PaRTIaLcS  Tri/.T  uui’iP 
Ati'iAln  IN  Trie  TkanSaaKT  Anc  Thuuc  ThAT  aRc  IN  The  PakTIcLc  aRRA YS.doMP 

JW I ND  1  =  1  OUMP 

N  TAP  = I OW IND  DUMP 

N/J  =  Nn-JT  EST  DUMP 

ASSIGN  3 Uc  TO  N1  OuMP 

ASsIGN  1  uu  TO  N4  UUi-iP 

ASSIGN  42  10  N2  DUMP 

ASSIGN  42  To  N3  DomP 

DUMP 

INITIALIZE  FOR  BLOCKING  SORT  DUMP 

IRSET-0  DUMP 

I  CON  =  (J  DUMP 
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Jri=NALOFT 

JUMP 

29  b 

o  T  =  1 

JUMP 

294 

J  =  JB 

JUMP 

295 

c 

DUMP 

296 

c 

WRITE  uu  F  A  DoMP  ujmmARY 

DoMP 

2  9  t 

rtKlIc  I  I uuu 1  j4)J  Icof  »J1lo  [  l*i'>hKLLti4o»^Luai  »i'ilu»N]  1  »Nrt 

JUIviP 

29o 

c 

NO*  oto  1  N  Tnt  PLjCicIno  auK  1 

JumP 

49  9 

C  9b 

CLAbbirY  FnL  Jin  PmnTICLc.  Aa  doANk*  Tu  dl  jUmPuj*  ok 

iwT  ot 

JumP 

3  0  U 

C 

dumped 

DUMP 

301 

98 

I  F  (  F .'1  A. o  (  J  )  )  3a . 31 .32 

Dump 

a>  0  2 

3o 

GO  TU  N 1  * ( 3 o o  *  3 O 0  * 4 2 ) 

DJMP 

303 

32 

GO  TO  N  2  »  i  4  2  *  3  u  a  »  5  u  a  »  b  u  a  ) 

DUMP 

304 

3  U  a 

1F(TP(J))3j»J3»J3 

duMP 

JO  3 

33 

GO  TO  Nb*(4Uu*iaU142) 

JumP 

306 

3b 

Go  To  u4ilHi)iuil 

JUMP 

u0  7 

IF!  i  P  (  o  )  + 1 N  l>  i  lM)iuU»42»j.Uu 

D  UmP 

30a 

5  u  a 

I  F  (  T  A  (  J  )  -  1  Li  i-,  I  I  )  42  *  i  UU  *  42 

JUMP 

3U9 

6ju 

I  F  (  TP ( J ) -END T 19 ) 42 . lay, 100 

DumP 

3  1  0 

C 

■JUMP 

311 

C  31 

BLANK.  NOT  TO  BE  DUMPED 

D  o  !*i  p 

312 

3  1 

I  F  (  ICON ) 422 ,9al .424 

Joi'lp 

313 

C  42 

NOW- DI-ANN  iwT  TO  DC.  JUMblD 

JUMP 

314 

42 

IF  (  I  CON) 441 *444*424 

JUMP 

3  1b 

C  luO 

TO  □  t  JUMPED 

oUMP 

31b 

100 

IF ( 1  CON ) 9  a i *  9 -4  *  90o 

Dump 

3  17 

c 

Dump 

31b 

c 

I  coi\|  =  a  F  I  ila  T  PAaa 

JUMP 

uib 

c 

iCoN  =  +  l  oUTTurn  Looh 

JUMP 

34  U 

c 

1 CoN  =  -i  T  o  k  Loop 

JUMP 

32  1 

c 

JuMP 

32  2 

C  9oa 

muv'c.  Trie.  Jo-Tri  uInc.  To  Inc.  oLhkn  Line  1  Jot) 

JumP 

aca 

9a  a 

API JoL ) =XP ( JB  > 

JUMP 

32  4 

YP  I  JbL 1 =YP ( JR ) 

JUMP 

32b 

ZPI  JBL)=ZP( JR) 

DUMP 

326 

TP ( JBL ) =  TO ( jB ) 

JUMP 

327 

PblJbL)=Pb(Jb) 

JUMP 

3  2  0 

F  M  A  S  (  J  t5  L  )  =  F  i*i  A  b  (  J  b  ) 

DUMP 

329 

J  T  =  J  T  +  1 

JaMP 

3  3  U 

FPIAb(Jb)=o.O 

DUMP 

J3  1 

IFIJT-JI EoT  )9ol*9ul  *  1 1  a  3 

JumP 

0  3  4 

9o  1 

JBL  = JB 

JUMP 

33  3 

I  CON  =  —  1 

JUMP 

334 

J  =  J  T 

JUMP 

33b 

902 

J  B  =  J  B  -  1 

JUMP 

336 

GO  TO  98 

JUMP 

33  7 

C  9o4 

oTokc  Tr-lt  Jo-Tn  PAkTICLo  In  TumPukAkY  oloKAOc.  mw  ac  T 

I  K  o  c.  1  =  x  T  u 

J  OM  P 

a  3  o 

C 

INDICATE  That  IF  iyiUol  tit.  HOT  dAC\  I  im  T  ^  It-iE  PmkT  ICLc  Ai\i\hYo  AT  Tnt 

Jump 

3  3  3 

C 

END  oF  THIb  DUMP  oPlkATION. 

J  omP 

34  u 

904 

X  P  T  =  A  P 1 Jb) 

jumP 

34  i 

YPT=YP( Jo) 

JumP 

044 

ZP  T  =  2  P ( Jb) 

JUMP 

J4  3 

TPT=TP( Jb) 

JUMP 

344 

PST=PS( JB 1 

JUMP 

34b 

FMAb 1 =  FM Ab I Jb ) 

JUMP 

34  o 

I KSt  T  =  1 

J  U  M  P 

347 

FMAS ( JB ) =0 .0 

DUMP 

b4o 

GO  TO  901 

DUMP 

349 

903 

J  T  =  JT  + 1 

JUMP 

350 

150 

A 


VJ  w  V  KJ  J  VJ  J  \J 


J  =  JT 

I F ( JT-JTESTI98.98.110 
424  J=J-1 

JB= JH-1 
GO  TO  1104 

421  MUi/t  THE  Jf-Trt  Lint  I  u  THt.  d  LA  nil  LINE  (jdL) 

421  XP ( JBL ) =XP ( JT  ) 

YP ( JBL) =YP ( JT  ) 

Z.P  (JBL)  =  Zr ( JT  > 

T  P  l  J  b  L  )  = IP(JT  ) 

I'ilJbL  ) =Pb ( J  T  ) 

E  MAS  (  JdL  )  =  r  M  A  6  (  J  T  ) 

422  J B L  =  J  t 
4  2  J  1  C  u  i  *  -  1 

J  =  Jb 

11l4  l  P  (  Jb“J  I  co i  )  xluillui^o 
11 03  JBL  -  JB 

1 1 J  IS  THE  TEMPORARY  STORAGE  LCXDED.  yEo  TO  llol 
11>'  IP(  IRSET)llol,llo2*ilol 

ilui  Ki.r'L«i.c,  Inc.  itwr'UBHiML'I  jluncu  f  n  k  |  i  l  l  l  i  ic  Inn  cLni<N  Lli.L  (JdL) 


i  lo  1  X  H  (  J  d  L  )  = 

x  p  r 

YP ( JBL !  = 

i  p  1 

Zr(JdL)  = 

ir  I 

Fp(JuL)  = 

i  P  1 

PS(JBL)  = 

P  3  1 

FMAS ( JBL ) 

=  F  riAS  T 

1 1  d  2  C  o  i'i  T  1  N  J  c 


1  0  1 
ill 
121 
1  3  1 


C 

L 

o  in. 
C 

So 


L 

31 


3  i  1 

313 

514 


bcoc  i  nLYc  or  PART  Icccb  bclno  uonPcu  JwoT  DtrOKc  pRinTInu  ok 
JOYPING  T  H  t : 

00  131  J=1 *  J  TE  ST 

r c ( fmas ( J ) )  ioi *  l  i i » m 

FMAS  < J ) =-FM4S ( J  ) 

1 E ( TP ( J )  )  121 » 131 , 131 
T  p l J  >  =- I p l J  > 
ojnl  F  1  N  Jt 


iiu«  u  omP  Inn  oC.Lc.lTlo  OLooKipliono 

Ir  (rln  otolc.'l  uo  I  p u i  lAPc  I  o  io  u  c  «iKl  I  Icm  r  1  K  J  I  jcLtc  I  A  n  j 
w  k  1  T  c  Ah  MrcKoPpIAlc  Mill. 

I  P  (  im  i  AP-  I  boo  F  )  52  *  3 1  »  32 

ir  Trie  PR  l  nil  ino  OP  Loo  I  P  ART  1  C  l  c  ucbLKlPfluNb  lo  To  Dt  ookKlooco. 
Go  To  34 

IP ( iolo) •  N  c  •  0  )  uO  To  39 
w  K I  I c  (1 oo  ol  1 1 ) J  Flo  I 
WRITE  ( IlojT )2) 

GU  lU  t3il*3lo»513»3i9*3i3)*jT£oIi 
WRITE  l  I  GOUT »  9 ) 

GO  TO  316 
WRITE  (  I SUUT  *6 ) 

GO  TO  316 
WRITE  (I  GOUT, 7) 

GO  TO  516 


DUMP 
DUMP 
JUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
DUMP 
JUMP 
DUMP 
DUMP 
DUMP 
DUMP 
uoMP 
DUMP 
DUMP 
DUMP 
DUMP 
jump 
DoriP 
DUMP 
DUriP 
JoMp 
DUMP 
DoriP 
oomP 
dump 
Jump 
DUMP 
D  o  M  P 
DUMP 
DUMP 
DUMP 
DUMP 
JUMP 
JUMP 
DUMP 
JUMP 

DUMP 

JUMP 

UUmP 
Dump 
DUMP 
jo  rip 
JOMP 
DoriP 
JUMP 

dump 

JUMP 

DUMP 

DUMP 

JUMP 

JuMP 

Dump 

DUMP 


35  1 

352 

353 

354 

355 

356 
3  57 

358 

359 
3o0 
Jb  1 
362 
3b  J 
3b  4 
Jb  5 
366 

36  7 
J6  6 

369 

370 

371 
J  i  c 
3  /  J 
Ol  H 

3  to 

J  /b 
J  7  7 
J  /  o 
J  /  9 

380 
JC  i 
382 

36  J 
BOA 
385 
3  8b 
36  / 
36  6 
369 

390 

391 
39  2 
39  3 
394 
393 
39b 
39  i 
39  o 
39  9 

400 

4Q  1 

402 

403 

404 

405 
90b 

407 

408 
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r  n  r  r  n.  n 


515  WRITE  (I SuUT  , o ) 

516  w  K  I  T  E  l  I  suu  I«3)IXPIU)»Yr<J),4PIU),Ir(u).Po(U)  »Fi*.Ao  (J)  *J=l*JT£oT  ) 

GO  TO  54 

52  WRITE  (NTAP)JTEST 

IF(NTAP-lPOuT)252, 155,252 

155  WRITE  INTAP)  (XP(J)  »Yk(U)  .  T  M  J)  ,PSl  J)  .HmAo(J)  «U=l,UlcsT  ) 

GO  TO  54 

252  WRITE  1  iY  T  A  P  )  (XPIJ)  »  Y  P  l  U  )  *2P(J)  »TP(J  )  »  P  s  (  U  )  »  FMAo  (J)  .  J  =  1  .  jT  eoT  ) 

I F ( I C (6 ) -1 ) 54,2521 .2521 

25  2  1  WRITE  I  I  suuT  ,3)  (XPIJ)  ,YP(J)  ,/P(J)  >TWj)  >Po ( U 1  »FMAS ( J )  *J=1»UTeST  ) 
C 

C  54  Aji5  I  ru_  noi'iULi'  or  L  Irlo  JosT  uuhPoD  Tu  [nt  iyui'idlk  uF  LIiylS  lwiPTY 

C  RRlVIuuslY  Aiyu  1  ntiiY  itiTu  uUT  TriE  IL)P  uF  Ti-iE  LIiYEu  JUST  DuMRtD  To 

C  aVoIu  DUUoLt.  COUNTING 

54  iyFR  E  E  =  NF  Rt  t  +  U  TEST 

DO  5  a  1  J=i,JTEST 
541  FMAS(J)=0.o 

I F ( NFREE-N 1151, 152,152 

15  j  mKl  TnoRc.  iyuw  cisujon  ooirT  ioUuJo  cjAiyis  L  liico  I),  Trie  Top  oF  t  :e 

PArTICuc  ArrAY  To  mol  eVt  Tne  iY  P aK  I  I  C Lo  o  InAl  mu  w  A  I  T  I  iyG  lo  dt 

KEAj  In.  YeS  TO  60 
152  IF (N-UTEsT )6u»6o,15a 

154  ouniuL  1  u  a  i  e  iy  dlAiyR  oIiycS  I  1 1  o  Tnc.  I  or  or  Inc  rarTIOLc  array 
1  5  4  UFR  =  (yAL0FT  +  1 
<=JTEST+i 
UO  5  O  U  =  10  ,  IY 
I  F  (  r  iv'.AS  (  J  )  157,56,57 
0  57  A  rARTICLE  nUsT  6E  riuVcD  Uoi/fY 
57  JFr=JFk-1 

1  F  (  r  irAo  l  J  r  k  I  )  50 , 5v  ,  5  b 
56  IMjFr-jIooI  loo, 00, 5/ 

C  59  MUVe  Trie  PArIICLl 
59  XP ( JFr ) =XP ( J ) 

YP ( Ur  R 1 = YP ( U 1 
2P(JFK)=2P(J) 

TP(UFr)=1r(o) 

RSIUFr)=Ps(U) 
r  MAS  (  JrR  )  =  FriAS  (  J  1 
F MAS ( J 1 =0.0 
56  CUM T I N OE 
6  o  R  E  T  U  R  M 

END 
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juMP 
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15  J  RIP 
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42  J 

JUMP 
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DUMP 
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DUMP 
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428 
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42  9 
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45  3 
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437 

dump 
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dump 

439 

dump 
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dump 
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DUMP 

44  fa 

DUMP 
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DUMP 

44b 

DUMP 

449 

DUMP 

450 

DUMP 

45  1 
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DUMP 
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*  I  BF  TC  Rl)TOP  L  I  aT  .DECk  .1444/2  ROTO 

SUBROUTINE  RDTOPO  (LB)  ROTO  I 

11  OCT  66  ROTO  2 

T.  h.  oCnucNKL  TEunifluHL.  UPtKMTlOMa  KtatARCrl  ok  uuTpku  CHaImkDTU  p 

Trllo  SObRuOliME  mlklLY  KlmUS  uNc.  TuPu  Di-UCk  INTO  ARRAYS  o  AMD  KuTO  4 

aObaiD.  IT  tXPtCTo  klaD  l  1  n  1 T o  To  dE  1m  Cui'ii-ium  moRoo  II.uj.kk.  kuTu  p 

ERROR  EXIT  IF  BAD  LIMITS  ROTu  b 

RDTO  7 


wvvi’  a-xxx 

x 

XWXX XXX 

X  V 

X  X  X  X  X  6*-  7f  x 
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X  X 

xxxxxxx 

X* 
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x  x  x 

*  R  D  T  0 

8 
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9 
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/SET  1  / 

RDTO 

10 

1 

U 1  Ai*i 

9 
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9 

I  K  i  ot 

9 

1  tXcC 

9 

161N 

9 

I  iUU  T 

9 

AUTO 

11 

2 

5U 

9 

;  •'Ait 

9 

OO  Aim 

9 

r.-.E 

9 

Trip  1 

9 

T  1*1  F  Z 

9 

kdTO 

1  2 

3 

f  2  14 

9 

l 

9 

VPR 

9 
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9 

X 

9 
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9 

RDTO 
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4 

w.Y  Y 

9 
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9 

IUlbTK 

9 

aPpK  1 

9 

ppak  2 

9 
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9 

RdTu 

14 

P 

aPAK4 

♦ 

a  p  A  i%  P 

9 

o  P  A  k  b 

9 

aPAR7 

9 

aP  AR  o 

9 

SFAi^ 

kDTO 

1  P 

UlnENolON  0  E  I  I  L)  (  1  <1  1  »  H  Y  (  4  0  ) 


c  y  (f  w  w  x  w  > 


COMMON  / SE  T  2 / 


kDTO  1 o 

ROTO  17 

r  x  -A  x  vc  x  x  x  ■#  *  x  -k  x  x  it"  x  x  *  -if  x  x  -fr  #  x  <-  if  x  •*  K  Q  T  0  ^  Q 

KD TO  19 
RDTO  20 
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G  <  I  mT  . 

oXLL 
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dXLu 
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KDTu 
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9 
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9 

T  YLO 

9 
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kD  TO 
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9 
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9 
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9 
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nA 

9 
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9 

YP 
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24 

5  . 

ZP  9 

FriAa 

9 

TP  . 

Pa 

9 

vx 

9 

VY 

RDTO 

2  P 

6  > 

Vz.  9 

IL 

9 

JL  . 

I  dadD 

9 

«vGK  INT 

9 

NaTRA  I 

koto 

2o 

7  . 

/JLLX  9 

ALLY 

9 

w  0  K  A  . 

huR  Y 

9 

bOT  n I T 

9 

I P  aR  I  is 

RdTu 

2  7 

6  . 

I  u  F  \j  P  9 

iUrt I MD 

9 

I  n I uP  u  . 

i  Puu  1 

9 

IPAkuT 

9 

JluKl 

kdTO 

2  o 

9  . 

J  I  1  *  0  1  9 

I  K  KUK 

9 

T  L  1  14  I  T  , 

cmo  r  i  pm 

9 

1C 

9 

I  D  Y  P  A  a 

kd  Tu 

24 

1  « 

J  l  uHj  9 

MLua  1 

9 

NG  . 

\  i  j 

9 

NT  I 

9 

N'ft 

RD  TO 

3  0 

2  . 

i\Al  Jh  T  9 

Ul  i.-.Ll 

9 

NbMAX  . 

Mr  ,\CC 

9 

M 

9 

NCL 

kdT  0 

31 

3  . 

CKi'iAXY  9 

C  Rut"  1 

9 

N  C  R  1  Y  P  . 

ol 

9 

CRM  I  NX 

9 

CRri  I  f  Y 

RDTO 

32 

4  . 

UvJ  9 

aN 

9 

C  a  . 

i.LuC  1  R 

9 

0  T  LuC 

9 

AT  tiiP 

KdTO 

33 

5  . 

Knu  9 

NA 

9 

luZ  . 

ipT.’lAu 

9 

r  R  a  a 

9 

C  R 14  A  X  X 

R  D  T  0 

34 

6  . 

RuPA'-'T 

RD  f  J 

3  P 

DIi 

‘L^OWfM  T  vjLi". 

(4.4) 

*  I't  I  NT  MK  l  H  ) 

.  I  T  up  Li'i  l  p  .  4  ) 

KD  To 

p  o 

Dll 

i  L  Cj  I  U  i\  oil  9  1 

0  ) 

9  ouBo i  i J  ( 40 0  ) 

. IC (  io  ) 

RoTo 

p  / 

L>  I  i'iCMS  1  UN 
D  I  MEN a  I  UN 
0  I  .-'Eno  I  UlM 
D  I  M  E  N  a  I  0  N 
0  I  •-!  Em  o  I  uN 
u  1  p'iEmo  I  UN 

l)  i  i'iL'0  1  VIS 


Xp ( 2 «- ) 

T  p  (  2  . j) 

YX  ( lluu) 

JL i  lo  ) 
n  G  lx  I  N  I  (  I  \j  ) 
w  u  R  Y  (  7  0  ) 

LKi'p  I  MX  1  6  ) 


D  I  i'iEmS  I  um  u  k  an  T ( 6 ) 


*  YP ( 200 ) 
iPol 200 ) 

»  7  t (  L  50u  ) 

. I  BAD! (  10  ) 

» o  a  T  .4  i  f  (  7 1 j  ) 

»  L  N  M  A  X  X  (  6  ) 
IHIK f  Y  P ( o  ) 

x  <c  w  x  it  «  x  If  'R  x  x  '• 


ll 

lOu 


FukKi  A  T  (  .3  3ti f  uKU  OaTm  f  laKvjci  F  ok 
FuKnA  f  l;&ny  luCuKrtCwl  JoHo  fMDi-t  u  F 
FORMAT ( 1 o F i 0 • 3 ) 


(#  Vf  X  If  X  X  X  If  -it# 

f  x  if  #  fr  x  X  if  x  x  X  x 


»ZP ( 200 ) 

» AT  EMP ( 26C i 

»  YZ ( 15u0! 

*  <nJ  RX  (  70  ) 

*  (iLLX  (  70  ) 

*  aN ( 6  ) 

» C  R  pi  I  N  Y  lo) 

• Uu ( 6 ) 

x  x  x  x  x  it  x  If  x  x  -if  ->F  X  > 

PKuOkaki.  ) 

CuNT  L  n  fa.  ) 


X>tXiFxiF-JF'*c->F>c-ic‘Jf‘tf1X'iFiF 
xx  xotxiHtji'XWnK 


.FriAa  1200) 

» KHu  ( 2  60 } 

» IL ( 70 ) 

.ALLY ( 70 ) 

.Co ( 6 ) 

.  CRM  Ax Y ( 6 ) 


I  I  =  I TOPLMI 1 .Lb ) 

J J= I T  UPLM l 2  » L  b ) 

KK= I T UP  L  M 1 3 . Lb ) 
TTuPu=TuPuLn(4»Lb) 


RDTO 

RDTO 

kDTO 

RDTO 

kuTC 


po 
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4  U 

41 

42 
4P 
4  H 
4  p 

46 

47 
4  C 
49 
P  o 
Pi 
62 
6  3 

54 

55 

56 

57 

3  O 

59 

60 
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BXLlMukuli'i  l  1  «  Lb  ) 

KOTO 

bl 

BXLU=TuR0Li'i(3,Ld)*FLuAT  l  I  I  ) +oXLL 

kDI  U 

b  2 

B  YLL  =  TuR(jLi»i  l  2  »LB  ) 

K  U  fo 

b  3 

B  Y  LU  =  T  uPOLi'i  l  3  *  LB  I*FluAT  (  J  j  )  +dYlL 

KUlU 

b  4 

JF  TOPO=  LB+ 1 

kDTO 

b  D 

IF (  I  I )  1.1.2 

RDTO 

bb 

2 

I F ( JJJ1.1.3 

ROTO 

b  7 

3 

1 F (K< ) 1 ,4,4 

\\  U  1  \J 

u  o 

4 

IF(II-ILlM)3»3»b 

k  ulu 

o  y 

5 

I  F  (  J  J  -  J  L  I  ivi )  7 .7 ,6 

KUlU 

l  u 

7 

I  F  l  X<-XL  I  i*i  )  o  ,  b  ,  6 

KOI  U 

1 1 

6 

WRITE  (ISOuT.V) 

l\U  I  O 

72 

1U 

b  T  UP 

K  DTo 

7  b 

1 

WRITE  II  SOOT .11) 

KO  1  U 

74 

GO  TO  10 

kd  r  O 

7  s 

8 

Kt AD  (  IriTUPO ) (  ( o( 1 » J ) ,  1  =  1  .  I  l  )  » J=1 » JJ ) 

KL)  I  U 

7b 

Kt  AD  (iNTUPu){bUBblO(X),x=l.XX) 

KU  TO 

7  7 

WRITE  II  SUu  T  »luG)  ( oUd  o I U I K )  » X  =  1  »  Xx  ) 

ROTO 

7  o 

RETURN 

RD  To 

7  V 

END 

K  o  To 

80 
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$  I  6F  TC  LNK.5  LIST, DECK., M94/2 

SUBROUTINE  LINK.5 

C  T  •  w  »  SCHWENK.E  TcCriNICAI.  OPERATIONS  RESEARCH  LINK.  5 

C  15  OCTOBER  1966 

C  FIRST  OVERLAY  LINK.  OF  TRANSPORT  PROGRAM.  INITIALIZATION  AND  CALL 
C  OF  WIND  FIELD  PREPARING  SUBROUTINE  MKwIND 


C  LNK5 

£************  TAPE  I  DENT  I  P  I  CA  T  IONS  AND  ass  I  GNivl£N  T  s  ***********  LNk.5 

C  LNK5 

C  NAME 


TAPE  I  DENT  I P I CA  I  IONS  And  ass  I GNpieN T s 


CONTENT 


I H  T  OH  G 
i  O  T  O  H  o 
ioW  1  D 
I  PAR I N 

IPAKU I 
IPour 

I  SuU  T 
IS1N 


Topographic  hcIuht  data  tape 

parTIgLcs  acuFT  BUT  btYUND  In-  Cukc  TupuukaPhY 
HhkTKLls  acuF  T  duT  dc.  Y  urd  IN  loKc  WInd  rltuu 
P  «T\  T  I  C  L  ti  S  aLuFT  and  To  dc  pRugcSscd 


P Ah T  1  v 


AcUr  T  awaITIru  rcxT  TIpiE  pckIud  wInDs  lnrp 


PruuRApi  SPECIFIC  oolPoT 
SYsTEM  (BCD)  OUTPoT  TAPE 
SYSTEM  INPUT  TAPE 


£#■#■*<■■<«■■><■  ■!<■■»<•  -it  ic-k-w 

c 

C  aT  chip  (  J  ) 

C  AX  *  A  Y  »AZ 


blank. 

UOTh I T( A) 
BZ 

CbREZ 1 
C  I  KM  I  N 

OIK  T YPl J ) 
1 
2 

3 

4 

5 

CR1DI  ) 
Ckm  I  nX  (  J  ) 
CrpiAXX  l  J  ) 
GRPt  I  im  Y  l  J  ) 
CKMAXY  l  J  ) 
CKum  T Is) 

oc T I D ( J  ) 
uEi'iT  I 


dTloC 


DTMAC 


PROGRAM  ucussAKY  ************  l«Kj 

LN  A3 

A  TpcgsPHER  l  C  VlsLcsITY  In  ThE  D-Tn  oIiTa  [j,>i  lnrp 

OUTPUT  AK  jupicN  T  s  oF  loCau  CIRuUlaT  I  u  im  sYgIepi  _hrp 
Ccdcs.  X»Y»anD  Z  CcpiPgncnTs  oF  wInd  aT  T  hc  lnas 

Position  of  Thc  j-Th  partillc.  lnk.5 

OLANX  LITERAL  (  )  LNK.3 

altitide  of  bottom  of  nth  wind  Data  dlclk.  lnk.5 

LENGTH  OF  Thc  SIDE  uF  T  nt  sOOARc  LcOoD  SodD  I  V I  S-LNK.5 
IUNs  AT  Thl  TIME  OF  THtlR  DeFInITIoN  lN<5 

SUbROoTINE  SelA  dKEcZc  LIRColaTIoN  MoDc L  lNk5 

TIpiE  uNTIl  INTERsECTIoN  wilH  i  Hc  PlKsI  LoCAL  LNio 
WIND  SYSTEM  LNK5 

THE  local  circulation  TYPc  of  The  jTh  system  LNK.5 
MOUNT  A  I N  WIND  1  LNK.5 

RIDGt  wINu  1  LNK.5 

SEA  bREEZt  1  LNK.5 

SEA  bREEZE  2  LNKp 

NOT  ASSIGNED  L  N  K.  5 

CoOUD  RISE  1  DENT  1 F I  CAT  1  ON  lnKp 

SMALLEST  X  COOKDINAIc  oF  THc  JTh  LOCAc  SYsTEpi  Lnk5 

Largest  X  COokDINATc  of  THE  uTh  LoCAu  sYSIEi'i  LNrp 

Si’iallest  y  coordinate  of  thc  jTn  local  sysTcm  lnk.p 

lARGEgT  (  COORDINATE  oF  THE  JTh  LoCAd  sYsTepi  Lrrp 

hEIGhT  or  ToP  SURFACE  OF  Tn£  nTh  LOCaL  CIRColaTIoN  lrkp 
SYSTEM  CELL .  lNK.5 

I  N  I  T  I  AL  COND  I  T  I  ON  S  IFIKcdAcL)  1  ocn  TIFIoaTION  Ln.%  p 

ToPoGkApHY  TAPE  1 DBnT I F  I  CaT Ion  cITckal  (IhToPo)  lrR  p 
As  READ  FROM  TAPE  LNKp 

PakTICLcS  ALOFT  InPoT  TaPc  I Dcn T I r 1 um T 1  on  lnnp 

LITERAL  AS  KEAd  FROii  TAPE  LNrp 

T  Ipit  INCRtPiENT  FOR  USc  IN  TRAngPuRT  wIlniN  LodAllnk5 
C  I  RCoLA  T  I  ON  SYsTEpi  CEcLS  Lnrp 

T  I  pic  I N  C  R  EmciT  T  FOR  oSt  IN  TRANSPORT  WITHIN  THE  LnK.5 

MACRO  FlcLD  do!  bELow  MAXIpiUpi  ToPooraPpiIo  HEIoHTLNk5 
CANNED  COPY  OF  PART  ILLcS  ALoF  T  INPoT  TAPc  LNK.5 

I  DENT  I  F  I  CAT  ION  LITERAL  (IPARIN)  LNk.5 

SUBROUTINE  sELEoTs  AND  DoMPs  ONE  or  noKc  lnk.5 

SETS  oF  PArIIClc  DESCRIPTIONS  unTu  TEmpukARY»ck  lnk.5 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ENDT  I  M 

EPSI  L 
ERROR 
EAERAT 
FMA5  (  J  ) 


Fkug 
F  V 
FW 

G  E  T  w  N  It 
H 

HEIGHT 

HOB 

HS 

HT  uPu 
HTST 

IBADD(K) 

I  B  TP  AS 

IC  ( J  I 
1 
2 

3 

4 

5 

6 

7 

8 


I  EXEC 

IF 
I  I 

I  L  (  K  ) 

HIM 

IPAS 


IR 


IRROR 


IT 


INTERMEDIATE  OUTPUT  TAPES. 

T  I  hi  fc.  up  TO  WHICH  Thu  CURRENT  WIND  FIclu  dESCk 
ION  IS  ASSUMED  TO  dE  VALID. 

A  SMALL  NUMBER 

SUBROUTINE  ERROR  COMMENT  ANl/OR  STOP 

subroutine  particle  sbttlinu  rate  computatp 

MASa  PER  UNIT  AREA  (MILS)  AaaUClATtu  wITh  Thc 
J-Th  CluUD  suddIVISION  ( PART  I CLt )  AT  Thl  TIMl 
i r s  def ini t ion 

A  i-kECuhPU  TEu  ConSTAnT  InPuT  Fok  subroutine 
FALRAT 

OUTPUT  ARGUMENT  of  FALRAT  (MK.O)  A  PualTIVE 
QUANT  I T Y 
FISSION  YIELD 

SubROuTlN;  GcTS  MACRO  WIND  VcCTuKS  AT  hARTIC 
P05 I T ION 

OUTPUT  ARGUMENT  OF  SUBROUTINE  HEIGHT 

Subroutine  retrieve^  TuPu  height  at  x.y 

hbIGhT  oF  duKbT  RcLAllVt  Tu  bukFACc.  HEIGHT 
TEi'iPuRARY  aiUKAGE  FOR  STANDARD  ATMuSRHckIC 
STRATUM  buTTom  hEIGhT 

HlIoHlST  TuPu  HtlGnT  ANYWHlKc.  ON  ThE  TuFu  TAPt 
CANNED  COPY  oF  ToPuuRaPHY  TaPb  I olnT I F 1 C a T I  on 
L I TERAL  ( IHToPU ) 

BASE  ADDRESS  OF  KTh  WIND  DATA  BLOCK  IN  ARRAYS 
VX.  VY.  AND  VZ 

INITIALIZE  BYPASS  FLAG 

control  variables  interpretations  as  Follows 

SuPRESS  T0P0  TAPE  USEAGE  IF=  1 
SUPRESb  OFF  TOPO  TAPE  USEAGE  IF  =  X 
SUPRESS  OUT  OF  WlNu  F 1 1 L D  TAPE  UstAGc  IF  =  1 
SUPRESS  PARTICLES  AloFT  SECONDARY  MEMORY  IF  = 
SUPRESS  ALL  TAPE  SECuNDARY  MtMORY 

transport  trace  control,  o  =  no  traclb, 

1  =  a  PARTIAL  TRACE*  2  =  A  MORE  COMPLETE  TRA 
PRINT  WIND  FIELD  IF  =1 

SUPRESS  PRINT  AND  WRITE  OF  LOST  PARTICLES  IF  = 


EXECUTIVE  CONTROL  WORD  TO  CONTROL  BRANCHING 

BETWEEN  CHAIN  LINK  SUBROUTINES 

INDEX  OF  THE  LAST  LINE  IN  THE  PARTICLE  ARRAYS 

IToPLM(l.U)  FOR  THE  ToPO  DATA  BLOCK.  CuRRtNTLY 

CORE 

LIMITS  ON  INDICES  oF  WIND  BLOCK  DATA  SET  K 

ASSIGNED  GO  TO  VARIABLE  FUR  OSE  IN  DEALING  WIT 
EXCESSIVELY  SMALL  PARTICLE  MuVEMENT  S  ARISING 
DORING  TRANSPORT 

INDICATOR  OF  TYPE  OF  BOONDING  PLANE  ENCOONTERE 
DORING  TRANSPORT.  1=X-B0UNDARY .  2 = Y-BOONDARY . 
3=Z-BOUNDARY,  4=  TIME  BOUNDARY.  P  =  LOCAL  CIRC¬ 
ULATION  CELL  BOUNDARY. 

NUMBER  OF  THE  SOURCE  STATEMENT  NEAREST  To  WHER 
AN  ERROR  CONDITION  WAS  SENSED. 

THAT  IS  TO  BE  PROCESSED  BY  THE  TRANSPORT  LOOP 
ASSIGNED  GO  TO  VARIABLE  FOR  USE  IN  CODE  SELECT 


LNKS 

61 

I  p  T lnkp 

o  t 

lNKp 

6b 

LNKP 

6  4 

LNKP 

t>  P 

jN  LNKp 

bo 

LNKP 

67 

uF  Liih.3 

60 

LNKp 

69 

lnkp 

7  u 

LNKP 

71 

L  N  K  p 

7  a 

LNKP 

7b 

LNKP 

74 

XELnkp 

76 

LNKp 

76 

LNKP 

7  7 

LNKP 

7  o 

UNNP 

79 

LNfo 

6  0 

LNKp 

61 

i-  N  K  P 

8  8 

LlYKP 

b  B 

LNKP 

84 

LNKP 

8  P 

LNKP 

86 

LNKP 

87 

LNKP 

88 

LNKP 

a  9 

LNKP 

90 

LNKP 

91 

LNKP 

9l 

1  LNKP 

93 

LNKP 

94 

LNKP 

9  P 

CELNKP 

96 

LNKP 

97 

1  LNKP 

98 

LNKP 

99 

LNKP 

100 

LNKP 

101 

LNKP 

102 

lNKp 

103 

INLNKP 

104 

LNKP 

103 

LNKP 

106 

LNKP 

107 

H  LNKP 

108 

LNKP 

109 

LNKP 

110 

D  LNKP 

1  1  1 

LNKP 

112 

LNKP 

113 

LNKP 

1 14 

c  LNKP 

IIP 

LNKP 

116 

LNKP 

117 

-  LNKP 

lid 
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c 

c 
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I  L  I  Pi 

XP 

VX 

wGK InT 
du I  HIT 
I P ARO  T 
IC 
NTI 
N 

CRM  I  NX 
0  T  L  oC 


♦ N I N I AK ( 4 ) 

•  OODO I  V (  40u ) 

*  Y  p  (  2  0  0  ) 

♦ P  o ( 2 00 ) 

♦  V  Y  (  1p00 ) 

♦ I BADD ( 70  ) 

9  bo  I  H  I  I  (70) 

9  C  KpimXX  {  6  ) 

♦  NCR  I YP ( o  ) 


♦  I  T  oPLm  (  p  ♦  4  ) 

♦  I  C  (  i  o  ) 

♦  zP ( Guo ) 

♦  ATEMPl  <260  ) 

♦  V  Z  (  1  p  o  0  ) 

♦  ftOKXt  70) 

♦  «« L  L  X  170) 

♦  oN l 6  ) 

♦  CRi'i  1  NY  16) 

♦  oo l a  ) 


Jl  I  l-i 

YP 
V  Y 

No  T  RA  T 
I P Ak I N 
J  TOP  1 
loYPAo 
NW 
NCl 

CRi-iINY 
A  T  bi-iH 
CRpiAX  X 


♦  FmAS  l  ZOO  ) 

♦  Rno ( Z  60 ) 

♦  I L I  70  ) 

♦  ft  L L  Y ( 70  ) 

♦  C  o  (  o  ) 

♦  Ck."ma  r  (  o  ) 


•ic  -k  -ir  -k  w  *  -k  -k  w  > 


♦  P  St  I  u  l  iz  ) 

♦  foPlU!  1Z  ) 


♦  T I u ( iz  ) 


LNK6 

DIMENSION  lk1D112)  ♦PStloliz)  .♦Tlo(iz)  lNkp 

DInENSIoN  «v  1 0  <  i  2  )  ♦IopIU(IZ)  LnKP 

FORMAT! 12A6)  LNKp 

Forma  T  l  /  /  /  z  PX  ♦  p6ri*K-*  *  Initial  conu  1  T  Ions  (FIRldhll)  1  olnT  i  F  I  laT  Iolinkp 
1  iN  ♦»***/ 2  pX  9  1  2A6  »// Z  PX  ♦  dTn**4**  CLooO  Plot  1  DEnT  1  F  I  ChT  I  on  **■**/ 2  p  LNKP 
2X  9  1  2  Ao  ♦  /  /  z  P  A  ♦  49H****  PAkIICLE  o£T  EXPAnoIoN  1  utN  T  i  F  I  CA  T  1  un  *t*#*  LNKp 
3  /  Z  3  X  ♦  i  2  A6 /  / 2  pX  ♦  8  ori*-*  a*  INIo  RuN  OF  I  HE  IKaNoPokT  noooLt  WAS  LNKp 


40  1  V£n  f  nE  FoLloa  I  No  I  oEn I  1 F I CA T I  on  *■**«/ z  3X  ♦  i  z  Ao/ / / l  pX  ♦  zon**** 
PTHtR  In  PUT  oATA  ****•) 

FORMAT l i 8X ♦ 1 Z  Ao ) 

FORMAT (  I  5 ) 

FORMAT ( ZElZ.S ) 

FOKi-i  A  T  (  1  FI  i  ♦  z  4X  ♦  4oMA  Ii'iOsPritR  I  C  PkoAlKTIco  FoK  rAiL  kaT  t 


*  OLNKp 
LNK3 
LNKS 
LNKp 
LNKP 

I  I ONLNKp 


1  / /ZPX  16HHL  I  GriT  OF  OOT  TOM4X  .9HV  loCOS  IT  Y  l2X  ♦  7l-ll)tNsl  I  Y  /  Z6X.10HOF  slKAlLNKP 
2UM/2PX1  6HME  IERS  ABOVE  nsL6XPH  (  MkS  )  1  PXpH  ( i'lKs  )  /  /  )  LNKp 

FORMA  T  (/  13X7  lrlTHE  CONTROL  VAKIAdLL  AkRaY  ♦  I  C  ( -J )  »  MAS  bLLN  olVcN  THLNKp 
IE  FOLLOWING  VALUES.)  LNkp 

FORMAT! IPX. 1814)  LNKP 

FORMAT  !/ 1  PXZbHTrlE  TRANoPokT  TIME  Lll-ilT  Is  Flz.3)  LNKP 

FORM  A  T  (  1 6X6PM  IN  Trtls  Ron  WE  Aosui-il  A  PLAnak  DcPOsITlGN  SURFACE  ATlNkp 
1  ELEVATION F10. 3)  ENKP 

FORMAT  (  42FI0PAR  T  I  ClEs  REMAINING  on  TIml  booNoARY  TAPE)  LNKP 

F0RMAT16! 1X.E13.6) )  LNKP 

FORMAT ( A6 .4F10. 3 . I  3  )  LNKP 

FORMAT  (  29HG  WRONG  TAPL  REEL  ui\l  DRIVE  12)  LNKP 

FORMAT ( 42H0PLEASE  Moo NT  CORRECT  TAPE  AND  PRESS  START)  LNKP 

FORMAT l / 18X* 3PHIDEN I 1FICAT Ion  FROM  I0P0GRAPHY  TAPE16XlzA6)  LNKP 

FORMAT12PX.E13.P.PX.E13.P .6X.E13.P)  LNKP 

FORMAT! P6HUTRANSPC R I  Is  COMPLETED.  INIERMtUIATc  RESULTS  ARc  ON  TAPLNKP 

LNK5 
!  T  T  LNKP 
LNK5 


it  12) 

FORMAT ( 44H0PLEASE  FlLt 
1HE  END  OF  THIS  RUN.) 


PROTECT  THE  REEL  ON  TAPl  DRIVl  I2.2PH 


nn  n  nnnn  n  non 


20  FORMAT  ( 6F10.5 )  LNK5  351 

21  FORMAT  (1814)  LNK5  352 

22  FORMAT  (A6.I3.4E12.5.I5)  LNK5  353 

23  FORMAT!  1H1///51X19H*  ********  *//12X10lHT  HE  D  E  P  A  R  TLNK5  354 

1MENT  OF  DEFENSE  FALLOUT  PREDICT1  0LNK5  355 
2  N  S  Y  S  T  E  M.//51X.1 9H*  ********  *////52X,16HTRANSP0RT  LNK5  356 
3M0DULE///55X.11HPREPARED  eY/43X .34HTECHNI CAL  OPERATIONS  RESEARCH » I LNK5  357 
4NC./52X.17HBURLINGT0N.  MASS . / / / /2 9X . 63H****  SUMMARY  0F  INPUT  I DENLNK5  358 
5TIFIERS  AND  INITIAL  CONDITIONS  ***»)  LNK5  359 


24 

27 

28 

29 

30 

31 


F0RMAT(//15X16HTOPOGRAPHIC  DATA) 

FORMAT (//15X13HPARTICLE  DATA/ 1 8X2 8HDENS I T Y 
1.3.2X.7HKG/M**3 ) 

FORMAT 1//15X9HW I ND  DATA/) 

FORMAT  (18X»A6#1X»I6»4(1X«E13«5.)  .IX  .110) 
FORMAT ( 18X.A6.4l 1X.F13.5 ) .16) 

FORMAT ( 6F12 .3 ) 


LNK5  360 

OF  FALLOUT  PART  ICLESF20LNK5  361 

LNK.6  362 
LNK.5  363 
LNK5  364 
LNK5  365 
LNK5  366 
LNK5  367 

************************************************* *********************LNK 5  368 

LNK5  369 

DATA  HTST. DTST. BLANK .POUT. ENDWFD/6HIHT0P0.6HIPARIN.6H  .6HI P0ULNK5  370 

IT  .6HEND  OF/  LNK5  371 

LNK5  372 

**************************************************************** ******i_NK 5  373 
*********************************************************** ***»*******LNK5  374 


201 


LNK5 

375 

THIS  BYPASSES  INITIALIZATION  CODING  AFTER 

THE 

FIRST  PASS 

LNK5 

376 

NUL=0 

LNK5 

377 

IF  ( IBYPAS-918273J201.200.201 

LNK5 

378 

I BYPAS=91 8273 

LNK5 

379 

INITIALIZE 

LNK5 

380 

JD0NE=O 

LNK5 

381 

IPARIN=11 

LNK5 

382 

I0T0P0=4 

LNK5 

383 

I 0W I ND=3 

LNK5 

384 

IHT 0P0=1O 

LNK5 

385 

I  POUT  =  9 

LNK5 

386 

I PAROT  =  1 

LNK5 

387 

JT0P1=O 

LNK5 

388 

JWIND1 =0 

LNK5 

389 

JTIME1=0 

LNK5 

390 

ENDT IM=0 • 0 

LNK5 

391 

JFT0P0=1 

LNK5 

392 

MXT0P0=4 

LNK5 

393 

DTMAC  =  10  « 

LNK5 

394 

DTL0C= 1 0 • 

LNK5 

395 

NAL0FT=200 

LNK5 

396 

NBMAX=1 50 

LNK5 

397 

NFREE=NALOFT 

LNK5 

398 

NL0ST=0 

LNK5 

399 

NSTRAT  =70 

LNK5 

400 

NW  =  0 

LNK5 

401 

NT0  =  O 

LNK5 

4  02 

NG  =  0 

LNK5 

403 

LNK5 

404 

ILIM.JLIM. KLIM. ARE  LIMITS  ON  T0P0  ARRAYS. 

SEE 

DIMENSION. 

LNK5 

405 

I L IM=10 

LNK5 

406 

JL I M= 10 

LNK5 

407 

KL IM=400 

LNK5 

408 

161 


DO  2011  J= 1 » NALOF1 

LNK5 

hOb 

2011 

FMAS ( J ) =0.0 

LNKS 

410 

C 

LNK5 

411 

C 

READ  I  DENT  I  F  1  C  AT  I  uN  FuK  TRANoROkT 

lned 

4  1  t 

READ  < 16 IN, 1 ) ( TIDt J ) » J=l« 12 ) 

LNK3 

Hi  3 

C 

LNK5 

4  1  4 

C 

KEAD  CutoTKUL  JATA  fori  TkAiM^PUkT 

LI,  145 

4  1  2 

C 

IHEsE  LuNIxoL  F'ARAMc.  1  lRj  AkF. 

FOR  jjc  rto  SIMPLIFY  I  mo 

on  I  1 LHlo 

LNK.5 

4  1  O 

READ  (  I  6  IN, 21 )  (  iC  l  J ) , J=i *  18 ) 

LNKO 

41  / 

READ  (  I8IN.31  )  TLIl*.'  T 

LNKS 

4  1  O 

C 

LNK.5 

41V 

C 

rEwIND  All  T  A  P  E  b  Involved  in 

(  xAnSPoRT 

lNk.5 

42  0 

I F ( I C ( 1 )-l ) 150.151 .151 

LNK5 

421 

150 

REWIND  IHT0P0 

LNk.  5 

422 

151 

I F ( I C ( 2 ) -1 ) 152 . 153 . 153 

LNK.5 

h23 

152 

REWIND  I OT OPO 

LNK5 

424 

153 

I F ( I C ( 3  >-l ) 154. 155 . 155 

LNK.5 

42  5 

154 

REWIND  I0WIND 

LNK5 

4  26 

155 

IF ( I r  t  4 ) -1 ) 156. 157,157 

LNK5 

427 

156 

REWIND  IPAROT 

LNK.5 

42o 

157 

C0NT I NUE 

LNK5 

42  V 

REWIND  IPARIN 

LNK5 

430 

REWIND  IPuUT 

lNk.5 

43  1 

C 

LNK5 

432 

C 

CHECK  I DEnT l F 1 C A T 1 Ono  jn  I  uru 

A^u  P  AkT  I  Cl  l  Ii\pJT  ThPc.6 

LN  lL  6 

43  J 

206 

I F ( ICIll-l ) 153.2C3.2j3 

LNK.5 

434 

158 

READ  (  IHT0P0IDENTI 

L  N  <  5 

43  5 

RT6T  =  AND(DENTI  » Cuivip  i_  ( HI  oT  )  ) 

LNK.5 

,30 

IF(RT6T)2j2.2j31.204 

LNK5 

4j7 

C 

LNK5 

43  o 

C  2-2 

WRONG  TAPE  AS  IriTOPo 

LNK5 

43  V 

202 

PRINT  14.IHT0PU 

:  L  N  K.  5 

hhO 

WRITE  ( 1 50uT . 14 ) IHTOPo 

LNK.5 

44  i 

PRINT  15 

LNKs 

442 

REwIND  IHTJPO 

:  L  N  K  5 

HH  J 

PAUSE 

LNK.5 

4,4 

REWIND  I HT  OPO 

LNK  5 

44  5 

GO  TO  206 

LNKs 

44  6 

C 

LNK5 

44  7 

C  204 

WRONG  TAPE  AS  IPARIN 

lNK5 

446 

204 

PRINT  14, IPARIN 

LNK.5 

449 

wRITE  ( ISO OT,  14) IPARIN 

LNK  5 

4;;  0 

PRINT  15 

LNK5 

451 

REWIND  IPARIN 

LNK5 

452 

PAUSE 

LNK3 

45  3 

REWIND  IPARIN 

LNK5 

454 

GO  TO  207 

LNK5 

45  5 

2031 

READ! I HT  oPo ) TXLL.TXLj.TYLL.TYLO.NBLCK 

LNK5 

45  6 

C 

LNK5 

45  7 

203 

CONT I NUE 

LNK5 

45  o 

207 

READ  ( IPARIN) DENT  T 

LNK5 

459 

RTST  =  AND(DENTT»CORiPl(DTST  )  ) 

LNK5 

46  0 

I FIRTST ) 2j4, 208,204 

LNK  5 

46  1 

C 

LNK5 

462 

C  208 

READ  ARBITRARY  72  CHARACTER  F  I  R  tcjAL  L  »CLoU  u-R  I  ol  »  An  j 

PART iLLt 

LNK3 

46  5 

C 

ACTIVITY  IDENTIFICATIONS  FROM 

I  PAR  I N 

LNK.6 

464 

208  READ  < I  PAR  I N I  F W .bSAM » SLDTMP * TMbD • S I GMA * T w »HOB * NSP * XGZ. » YGZ » TGZ. »BZ » LNKs  465 
1  NCL.RADMAX  LNK5  4o6 


or i  on  on  oo  oo  oo  ooooo  ooooo  oo  ooo 


READ  (  I  PAKliM)  (  PSEID  (  J  )  »  J=1  »  12  )  LNNb 

READ  i  iPARIN)  (CRID(J)  »J  =  1  »1  l)  LNNb 

READ  t  IPARIN  )  (DET  ID<  J  )  »J=1. 12  )  LNN5 

LNNb 

READ  DENS  I  TY  uF  FAlluUT  PARTICLES  LiMNb 

RUHAR F  Is  pAkTIClE  DEimsITy  1 im  \1  LubkAni  PtR  CUdIC  RiETcK  limns 

READ  (  I  PAR  I  N  )  ROPAR  T  limns 

LNNs 

READ  PARTICLE  SIZE  hAjo  A  iMu  AC  I  I  V  I  F  Y  UloTRIoUTl  UiM  s  L IMN  b 

READ  (  I  PAR  I  i'm  )  imPS  LNNb 

LNICS 

vXI  )  ^sED  Tu  TE-'PlRARIlY  sTukE  THE  SURFACE-  TO  VULuhE  RATIu  LIminS 
ARRAY  bV  LNNb 

VYl  )  I  o  usED  Tu  T  E  iTPuRA  R I  l  Y  sT  uRE  THE  A  ARRAY  FRui-i  PsE  IlINN4)  lImns 

Vil  )  I  s  vjoED  Tu  T  ci-iPuKAk  1  L  Y  sTlkE  ThE  PACT  ArKaY  FROrI  rsc.  (  L  I  Imn4  )  Limns 

READ  (  1 rARIN >  IPs(  I  )  *VY (  1  )  »VZ( I  >  »VX(  I  ) *  1  =  1 »NPs>  LImNs 

,  LNNb 

REALI—A  r.XUuKHER  1C  OcmsIFY  AIMD  VIoCOsITY  Limn5 

a  TAbLt  OF  A  TnusPHER  i  C  VIsCusITY  l  A  T  LRtP  (  J  )  )  AiMU  DENSITY  UnulJ)  )  LimnS 
STATED  I  i'm  THE  F is o  sYsIEri  Fur  ZOO  hc  I  Er  sTRATA  STARTING  Fkuim  XiOO  limns 
i»i E T  E R o  dELOw  i-'isL  LimnS 

READ  (  I  PAR  ININA  LiMNb 

READ  (  I  PAR  I IM  )  I  AT  EmP  (  u  )  »  RHu  t  J  )  »  J  =  1  *im  A  )  LiMNb 

LNNb 

CUwPUTE  CwimsTAimT  cun  FAll  rAIL  CalC  ola  T  x  uims  LImns 

F RUG = i » 3 uoooo 7E- 1 7*RuPART  LNNb 

LNN5 

READ  AkBUkAkY  TuPu  IDENTIFICATION  LIm  N  b 

I F ( I C ( 1 ) -1 ) I b9 » 160  * i6u  LIMNS 

160  READ  llsIN*2u)TTOP0  Limns 

GO  TO  ZOb  LiMNs 

159  R  t  AD  I  i  hTupu)  (  T  UP  i  D  (  J  )  *  J=i  *  1Z  )  Limns 

LiMNs 

READ  TuPO  TAdLE  uF  CuimTlImTu  LNn5 

READ  (  I  ri  TsPu  )  ToPOLI-i  L IM N 5 

READ  (  lHTuPU)  I  TuPLi-i  LIMNS 

lnns 

FIND  HIGHEST  TOPU  HcIGhF  LiMNb 

HTCPO  =  0.0  LIMns 

DO  170  J  =  1  »  ImDlCn  LNNs 

IFIHTuRu- IuPuLAil4*J))17i»x7  0*i/O  LiMNs 

171  HTlPu=  IuPlLim(4,J)  LiMNs 

17s  CONTINUE  ENNb 

LNNS 

READ  I-IrSI  T  uPvJ  uATa  dLsCk  LimnS 

CALL  RDTUPU  11)  LiMNs 

LNNS 

2ub  RuT  AN  I  ucim  1  i  r  1  CAT  1  uiM  wim  1,1c.  FraimsrurT  1  imT  cRi-ilu  i  a  i  l  uuTh-sT  TaPl  LimNS 
Z05  READ  l  IsIim.1)  UIDl  J)  *J  =  i*12>  LNNS 

OR  I  T  E  II  PuuT  )  PUu  F  LImns 

a  R  I  I  E  l  I  Puu  i  )  F  a  »  u_>  A.-.  iuLI)  l  isP  »  I  i‘l  D  »  o  I  On  A  »  F  A  iHud  »  imCL  >  F  L  iRl  I  i  idFi  LNnS 

1  ROPART  *XGZ*YGZ*  1C  Z»:iAD.'iAX  LNNb 

a  R  ll  E  (  I  P  u  J  I  )  lutl  IulJ)  *  J  =  1  »  iz  )  »ICrIuU)»J  =  1»1Z)  »  (  P-iEId  l  u  )  *J=1»1z)LiMns 

1*1  i  ID1U)  »  J  =  x  »  1  Z  )  *IaIdIJ)  *  J  =  1  *  i  Z  )  LiMNs 

arIFE  (IPuoT)NPo  LNNb 

WRITE  (  I  Puu  r  )  (Pol  J  )  .  V  <  (  J  )  .  V.H  J  )  »  VX  (  s  )  .  J  =  1  .NPs  )  LNNb 

I  F  l  I  C  l  1  ) -1  )  Zub4.2uss  »lusa  Limns 

20b5  CONTINUE  LIMns 


ao  7 
466 

469 

470 
4/1 
A  /  c. 

473 

474 
47s 
470 

47  7 
a7  6 
479 
A80 
46  i 
Ad  Z 

483 

484 

48  S 
“too 
A  6  7 

46  0 
46J 

490 

491 

49  Z 
493 

4  9  A 
49S 
ado 
a  9  7 
490 
499 
bOO 
b  0  1 
bOZ 
bO  3 

5  0  4 
sOb 
s06 
s  0  7 
s  0  o 
309 
s  1 0 
sll 
s  1  z 
bis 
b  1 4 
sib 
s  1  o 
317 
b  1  8 

S  1  M 

sZO 
b  2  1 
sZz 
sz  3 
sZa 
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on  nnnnnnnnnnonnn  nn 


WHITE  (IHuUT)  (BLAiTH»J=1.12)  Lith3 

GO  TO  2056  LitnE 

2054  wKITE  (  IPuuT  )  (TGPIDt  0)  .0=1*12)  LitH3 

LIT  A  3 

HRIi'tTTKAlMii-'uHTvJuTr-'uT  HEADING  lith3 

2u56  WRITE  lIc>UuT»23)  li»h3 

WHITE  (  1  5tju T  »  2  )  (  DE  T  I  l*  l  J  )  » J=l»  I  i  i  LKiu  1  J  J  Nr'jLiul'J)  »-'  =  j.*j.l.itH3 

12  )»(  T  ID(  J)  ,J  =  I  » 12  )  liTh5 

WRITE  (1  ouu  1.7)  LNK3 

WHITE  II  5  uu  T»o)lIClo)»J=i»io)  litK3 

WHITE  (  IoOOT  ,9)  TlIi-iIi  L  IT  K  3 

WHITE  (  I  5uU  T  »  2  7  )  kuT  Ah  T  l-ithO 

wHITE  l  IoulT  *  29  )  DEiT  i  I  *itoR»XG2»VGl*  i  G2.  *  i'tCL  lnk  3 

WKIlt  IIc>UlT.24)  lnh3 

I  F  (  I  C  l  1  )  “I  )  2U3  1  »203L  t  LU3i  L/TH3 

2052  wHIlE  I  I  jlu  1  i  lu  I  T1  oFu  lith  5 

GO  TO  2053  LitK3 

2l»3  1  wkITE  (  IovuT  ,  lb)  I  luHIDI  J)  »J  =  i  .14  )  LNN  3 

whITE  l  louui  »3u)DcH  i  I  »  ilLLt  fALJt  T  ilLiI  YLutuoLCiT  Lithj 

2o5  3  WHITE  (  I oOuT  .  28  )  LNK3 

WRITE  (Iouui»3)(wID(J)iJ=1.12)  LIT  K3 

wR I T E ( I oOuT .6 )  UTK3 

HS  =  — 110  0.0  LNK.3 

DO  2057  J= 1 » NA  LNK3 

xHl  Tt(  IjUuT  il  T|hC)f  Uti-H  (J  I  tKnuiJI  LNK3 

2u5  7  H6  =  H6  +  2l0.l  LNK.5 

LNK.5 

*  X  4  -H  vr  x  X  x  X  X  X  X  X  V  X  A-  X  X  X’  X  X  x  X  w  A-  X  X  X  X  X"  X  X  X  X  X  X  X  X  X  X  X  X  x  X  X  X  X  a  x  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  ■>«■  X  X  X  X  X  (S^  J 

LNK3 

2^0  Ait  Y  hiuh  t  I  I  Hit  i  it  i  cn  7  Alo  T  u  nt  lilhLT  a  I  I  it  »  itu  Tu  300  li.n  3 

20  0  I  F  (  T  L  I  IT  I  T -EnD  T  I  HI  )  3L  w  »  3  Ov  »  4u0  LITH3 

LNK.5 

5uU  itAnE  F  I  itAl  TrtAi,iir'ui\  I  HHoTjHM  i  uo  I  Kg  T  Hi  t  gi  luhutcitT  0  LTth3 

oE  T  it  =  .tAl^FI  lu  CAuoc  Durir  j  Tl  L  L  l  A  h  uJT  Trl^  EitTIhc  hhhTIlll  Ahhi_ith3 

LNK5 

500  N=NAL0FT  LNK5 

CALL  DJmPF  lNK5 

LITK.5 

AHc  AhY  Hhh  I  ICllo  on  i  11c  TIitc  dluIwAkY  i  AKt  •  Yto  To  700  lnh3 

♦  iHHHirxxxtf  x  xxxxxxxxx^  x  J  £ , . ,  p  x  x  x  x  x  X  *  4  4  4  x  4  4  4  4  4  4  4  4  4  4  4  4  4  x  4  4  x  x  x  it  x  x  4  4  L  K  p 

JT  I  ME  1  =  0  LNKp 

I  F  (JT  I  M  t  i  )  P  u  1  fbul*7U0  Lunp 

L  N  K  5 

700  HR I  »>•  T  Ai^Y  i-'AkTIClE  u'iIoCkIPTIuNo  TnAT  rtc.M  A  I  u  oi>*  Trie  line  do  jiwhi<  t  l  hn  p 
uVERFLpw1ARE*IPARuT  li\i^p 

7ju  WR  l  T  £  (  I  PARuT  )  i»JL  l  n  5 

REWIND  IPAROT  lNK5 

WRITE  (I  bOu  T  »  1 1  )  LNKb 

702  READ  ( IPAROT )N  LNKb 

IF<N)5oi*5oi*7Ui  LiNKp 

701  kEAD  i  l^Aital  )  (Xr'(J)  l/rlj)  »rnMJ  i  o  1  » J=i  »  it)  LUKP 

IE  t  I  juj  i  *12)  (  Ar  i  ^  )  i  I  r  i  j  /  *r'^(J)*F',,»Ao(J)*^  =  l*jT*)  Li\iKp 

GO  TO  702  lNiO 

LNN  p 

bul  akI  ft  A  FIimAi.  4Ehw  dujLn  C’-Jwi'*!  Ai'iO  e^r  u»>*  Ik^^T  Ll'iKb 

30 1  wKITE  (IPOuT)NUL  LNi^b 

END  FILE  I  POUT  LNKb 

REWIND  I  POUT  LNKb 


'J  L'J 
3ZO 
J4  i 
P  4  o 
P4  > 
p  p  0 

p  p  2 
p  p  p 

pp  p 

P  P  o 
p  p  / 
PPO 
P  P  7 
P4-  0 
PM-  1 
PM  4 
PH  P 
P4  4 
P  4  P 

P40 
P4  / 
P40 
P4  ? 
PP  0 
P  P  1 
PP  2 
ppp 

P  P  M- 
PPP 

bb6 
pp  7 

PPO 

Pbb 

560 
p6  1 
562 
PO  b 
5  6  4 
56  b 
Poo 
po  ( 
p  6  o 
Po  'y 
p  7  0 
571 
p  7  4 
p  7  p 
p  7  M 
p  7  p 
p  7o 
p  ?  7 
p  7  o 
p7v 

580 

581 

582 
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n  n  n  n n  n 


WRITE  l I uuUT . 18 ) IPOUT 
PRINT  18.  I  POUT 
PRINT  19.1 PoUT 

5u  lu  bK  I  P  OVER  ANY  UNOOtO  WIND  uAT  A 

A  CARO  CURTAINING  '  dnu  up  wlNO  Hllu  uhIm1  riuGl  riAKA  Trie  lnu  up 
THE  WIND  FIELD  DA  1 A  DECK 
5010  READ ( I8IN.11RTST 

KTiT  =  ANDlENDwFD.CuivlrelRrOT  )  ) 

IFIRTbT )5ulu»8uu»501u 

800  hrePARE  Tu  CALL  uUlVuT  ^nuCEGoOk  PkOGRAi-i 
800  I  EXEC  =  2 
RETURN 
C 

C  FuO  GE  I  uK  ulnLixwIoe  PKuuuCe  ThE  n£  a  f  i  I  !■>  l  I  n  T  ER  v  ai-  1  o  i»  Iku  rieou. 
400  NT I=o 

IEXEC  =  1 

RETURN 

END 


LNK3  300 
LNK3  384 
LNK3  583 
LNK5  386 
LNK5  587 
LNK3  388 
L  N  K  3  3  8  9 
LNK3  390 
LNK5  391 
LNK5  392 
LNK5  393 
LNKd  394 
LNK5  59  5 
LNK.5  596 
LNK3  397 
n't  a  3  u  9  o 
L  NK  3  399 
LNK3  800 
L  N  K  3  o  0  1 
LNK5  du  2 

603* 


603  * 
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SbIBFTC  LNK6  L  I  ST  ,  DECK  .  M94  /  2 

SUBROUTINE  LINK6 
CALL  MK.W  I  NO 
RETURN 
END 


LNKb 

LNK.6 

1 

LNK6 

2 

LNK.6 

3 

LNK6 

4 

5* 

5  * 
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nn  ri  nnor>.  nnnooor'on 


SIBFTC  ROC  I  R  LIST, DECK. M94/2 
SUBROUTINE  RDCIRS 
12  OCT  66 

T.w.SCHwtNKE  TcuhNICAL  uPEKATIuns  klSeARCH.  InC. 

#*'iHHHHHHHt-*"i«**#'K**»***'il"*-*'*Tt''K*'***tt***'*THHHi**'K'>ni*-**'*1l 

This  PROGRAM  READS  local  CIRCULATION  SYSTEM  INPUTS.  IT  READS 
SYSTEM  COORDINATE  LIMITS.  CIRMInXI  ).CRMAXX(  J.CRMIWYl  I.CRMAXl 
THE  INDEX  OF  THE  APPLICABLE  COMPUTATION  CODt  PUR  EACH  LOCAL 
SYSTEM  16  STORED  IN  nCRIYPI  ) 

A  CuUN  T  uF  ThE  ivui’iD  l  n  ur  luCAL  ifoT  two  IS  KcCukDeO  IN  NLuClK 


r  K  W  K  V  XX  X  X  V  X  xif  #  X  X  W  X  TfA-  1*  -xvi-  TYX  XX  If  XX  K  V  > 

COMMON  / SE  T 1 / 

1  DI  AM  ,  DE I  ID  ,  I  USE 

2  SD  »  SPAR  .  SSAM 

3  T2M  .  u  .  VPR 

4  WHY  .  RMIim  ♦  IDIsTR 

5  SPAR4  »  SPAkS  »  SWAK6 

DIMENSION  DET  ID ( 12 )  .WHY ( 4C I 


-  X  X  X  VC  -it  X  Jf  -it-  ii 


vc  y  x  x  x  x  x 


r  ir  it  vMf  vfr  ifr  #  Hr  Hr 


I  EXEC 

TME 

w 

sPAki 

SPAR7 


I  si  N 
T  ftp  1 
X 

sPAR2 
sP  A  Rd 


I  suuT 
T  mP  2 
Z 

S  P  A  R  j 
sP  Ak  9 


XX  1 


f  if  x  x  vr  x  x  x  x  X  x  x  x  x  x  x  x  vc  vHF  -if  x  x  F 


COMMON  / SE  T  2 / 

1  o 

2  > 

3  . 


BYLu 
YuZ 
IL  L  I IM 
ZP 
VZ 

WLLX 
I u  T uPo 
JW  1  iNUl 
J  I  UP  J 
IMLur  T 
C  ri-imx  r 


4  . 

3  » 

6  * 

7  . 
ti  . 

9  * 

1  . 

2  . 

3  . 

4  .  uu  .  oN 

3  .  Khu  »  nA 

6.  R0PART 

u  i  i-itNs  i  un  T  unuLi'i  (  4  »  4  ) 
u I mE  Ns  I  ON  s  l  1  u  .  1  0  ) 

D  I  i-'E  No  I  UN  X  P  l  2  uu  ) 

0  I  :*i  E  N  s  I  u  N  T  P  £  2  u  0  ) 


subs  I  u 

f  XlL 

T  3  l  (.n 
I  I 

FKAs 

IL 

wLLY 
IUW I  NO 
I  RRuR 
NLuu  T 
U  T  I  i'iL  1 
u  k  u  n  T 


OR  I  nT 
I  XLu 

h  r  upu 

jj 

ip 

j.. 

w  i  J  R  X 
I  ti  T  oPO 
T  L  I  i*i  I  T 
N  ) 

l')  i.'iAX 
NCR  f  Y  P 
Cs 
1GZ 


dXlL 
T  Y  LL 
T  Tuhu 
K  A 
PS 

I  OA uO 
wuk  Y 
I  Puu  T 
END  1  IM 
NTu 
NFkEe 
ml 

nLuL i R 
D  I  i-iAC 


r  voc  vc  vfr  v<-  ->  v 


dXLu 
T  i  Lu 

I  L  I  M 

XP 

VA 

WOK  I N  T 
sOT  H  I  T 
IPARuT 
IC 
nT  I 

N 

CRM  I N X 
uT  luC 
F  kuG 


:  vc  -1c  /c  v  -)c  ■x"  -ic  #  ■»<■  1c  > 


dYLL 
XGZ 
J  L  1  l-i 
YP 
VY 

Ns  TRA  T 
I  p  A  R  I  N 
JTUP1 
I  BY  PA  S 
Nw 
NCl 

C  R  M 1  N  Y 

ATEi-.P 

CR'mAXX 


D  I  me  , vs  I  JN 
0  1  >’>E  N  6  I  UN 
u  I  -ib  'to  i  uN 
D  I  >-'E  NO  J  uu 

U  I  I’>EN  S  1  oN 
D  I  i'-E  N S  1  oN 


V  a  l  15  00) 

JL  £  70  ) 
wGR I  NT  1 70 ) 
w un  Y t  70 ) 
CnMi  I  i«X  l  o  ) 
N_i<  'Jn  T  (  6  ) 


.  N  I  tv  T  An  (  4  ) 
*outSsID£4J0) 
.  Y  P  v  2  u  0  ) 

.  P  s  £  2  0  u  ) 

♦  tf  Y  l  1  5  0  0  ) 

.  I uADD I  7 u ) 

.buTrll  T  £  7  0) 

.  C  a.-iAXX  (  o  ) 

. nCk I  Y P l o  ) 


*1TuPLi*i(3*4) 
.10  16  1 
.4 P ! 2u0 ) 

.ATE  HP 1260) 

>  Y  Z  (  1600) 

.  w  u  R  X  £  7  0  ) 

, «  L L X 170) 

. SN ( 6 ) 

.  C  K  i'i  I  N  Y  I  o  ) 

.  u  u  £  b  ) 


. F MAS ( 200  ) 
» R Hw I  2 60 ) 

.  I  L  (  70  ) 

»  w  L L  Y  I  70  ) 

.  C  u  (  6  ) 
.CRmiaXY  (  6  ) 


FORMAT  1  4E  i  4  •  6  .  I  3  ) 
FORMA f l 7 / /  1  3X  .  2  ZHLUv 


ll  CIi'CjlaTIun  luUe  1 4  .  i  6H  Is  NOT  AVAIladLe- 


r#**-****-.***-.*# 


u/A  T  A  PkOukM  /6m^uCIau7 


RDCI 
RDC  1 
RDCI 
KDCI 
RDCI 
RDC  I 
RDCI 
RDCI 
Y (  RDCI 
k DC  I 
RDCI 
RuCI 
RDCI 
m-»*RDC  I 
RDCI 
RuCI 
»  KUCI 

.  kDCI 
.  R DC  I 
.  RDCI 
kuC  I 
RDCI 
RDCI 
RQC  I 
RDCI 
KDCI 
kDC  I 
RDCI 
kuCI 
KUC  I 
RDCI 
KDCI 
RDC  I 
RDCI 
RDC  I 
RuCI 
RDCI 
KuC  I 
RuCI 
KDCI 
RuCI 
kDC  I 
ROC  I 
kDCI 
k  D  C  I 
RDCI 
RDCI 
KuC  I 
KDCI 
kuC  I 
RuC  I 
RDCI 

***kdc  I 

RDC  I 
RuCI 
)  K  U  C  I 
RDC  I 

**»kdc I 

RDCI 

RUCI 

RuCI 


1 

2 

3 

4 

5 

6 
7 
a 
9 

10 
1 1 
12 

13 

14 

15 

i  o 

1  7 

16 

1  9 

2  0 
2  1 
22 

23 

24 
2  3 

2  o 
27 
2a 

29 

30 

31 

32 

33 

34 

3  S 
30 
3  7 

3  a 

39 

40 

4  1 
42 
4  3 

4  4 

4-6 
46 
4  7 

4  a 
^  ? 

5  u 
5  1 
S  2 
5  3 

34 
3  3 
3  6 
5  7 

58 

59 


1(57 


Q  ****x**tt**tftfttx*x**tt*#x*xx  *******  ***x***x*x*rt####x***tf**********tf****-**KDCI 


C  RDC I 

C  KEAD  D  E  F  I  n  I N  (j  uATA  FuR  LUCAl  C I RCOLAT  luN  iYoTE.-ij  RDCI 

C  RDCI 

K  =  0  RDCI 

120  K  =  K  + 1  RDCI 

kEAD  (  I  o  I N  »  1  )  Cki'-ilNAlM  tCKnAXXlK.)  »CRi*iIrtY  <M  »CKilAXY(M  •  iKkIYF(n)  kl>CI 
NC  I R  =  NCR  T  YP  (  K. )  kDCI 

1 F ( NC I R ) 122 . lou. 125  RDCI 

122  I RROR  =  12  2  RDCI 

GO  TU  7  7  3“+  RDCI 

12  3  IFIIMCIR-3)  i20»lxU»12“+  RDCI 

124  I RROR =124  RDCI 

WRITE  ( I  SOOT  *  2 ) NCIR  RDCI 

7734  CALL  E  KRUK  (  FRUGKl'i  »  I  KKuK  >  [  csuUT  )  KDCI 

c  i^o  this  id  the  normal  cxit  rdci 

C  i»luC  I K  Inc  H0i**Dcr\  ur  lulhL  CIkluLAT  iui'J  of  jlcfto  ythiFLU  FuK  uocKUCI 

L  IN  TR Ai+iHuR  1  1  hG  PAkTIClld  knCI 

RETORN  RDCI 

10l  NLuCIR  =  <-]  RDCI 

END  RDCI 


61 

62 

63 

64 
63 
66 
67 

DO 

69 

70 

71 

72 

73 

74 

75 

76 

77 
7  o 

79 
81 

80 
82 

8  3* 
83  * 
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cn  <-v  ,-i  r>  ■•'i  n  n  i"i  .'i  r-  n  n  n  rt  n  n  n  n  r  n  o  n  r>  n  r- .  r>  r\ 


SIDFTC  MKWIN2  L 1ST .PECK. M94/2  MKW1 

SUBR0UT  I  NE  tv.Kw  I ND  MKWI 

28  NOVEMBER  1966  M  K  W  1 

T.  •/.  •  TlChWIC^L  cPlKhT  i  iU  R l,  jumKIh  MKtftlNu  Mk2  Mk'aI 

M.>„  1 

H  it  it  •k  ti  it  it  #  yc  w  w  *r  M  tt  if  vk  ye  it  w  &  if  if  lb  Or  x-  if  ie  -k  •*■■><■  it-  icfc*  K  *•»<■:*  •*■  «'  x  x  Jr  X>"  X|.|  '»■'  j 

M  A  W  i 

T  H  I  z  z  U  i3  A  c  o  T  I  »N  c.  F <j Ky z  h  HoKIZoMTAoLY  AN  l)  V  E  R  T  i  C  h  L  L  Y  V  A  R  i  A  N  T  1  Ni)  ivi  A  ^  i 

DlzCR I PT  I  TNN  IN  C  «J RE  ZN  THl  sAi  I  o  JF  1  \Po  I  o  FKZM  Trie.  oYoIcM  INPwT  MKwI 

T^PE  •  INPUTS  ARE  AS  FZLLZWS..  MAWl 

1  CENTRAL  VARImBLEo  ENUTIN'i  *  #*niSri  ol  Vl-  TnC  T  i  ,‘«1Z  mT  WHICH  MAW  I 

THE  FZLLZ’MNU  DAT m  Cl^o:  t  Z  uE  VnLiD  »  ALPHA  *  ivhlCH  1  o  A  Pi A V.  I 

a  E  I  GHT  I  No  FACTOR  T  Z  b  F  APPLIED  .  Z  VERTICAL  D  i  -jj  A  N  C  L  o  ♦  l-l  Tn  i  MAM 

v.HlCh  Iw  A  WEIGHTING  Fav-T  ZK  TZ  (  £  APPLitt/  T o_  hvR  1  *.oN T  #^l  Mil.-.  I 

U  I  b  TA  NC  wC  *  A  NO  NN  *  WHICH  SP_GiFiZS  THo  NUMoLR  ZF  NL/-»RLbT  MAW  I 

VlCTcRo  T  o  l  oo£D  1  i\  ljT  IimAT  I  AC  Tni_  wI»\D  VECTOR  AT  a  uRiJ  NiAWl 

PAINT.  MAW i 

2  mm:  G  k  I  S  or-ECIF  ICATU.«o  IN  The  FoR.*.  5M  HIT(m  >..oR  INI  (J)  >  i*i  n  ..  I 

/.  L  L  X  (  J  )  *  L  l  Y  (  w<  )  ♦>'JRa(J)  *,.U.<Y(  J)  (oFiO.b)  MAW  I 

•  *H:.  RE  .,-ZTniTfJ)  2..  TmE  HIIChT  ZF  T Hi  M  To-)  */F  TriZ  J—Th  ARRAY  *  .v.nM 

U  \  I  mi T  (  J  )  I  •:  TnL  v.i R  i  U  i . * T  c.  i\ V  A L  To  \j w  o o i_ o  i  N  Tn^  J  —  T h  L  Y  R  *  ,*i k i 

A  NO  .-LLaI  J)  i  .wLY  i  j)  i,.v.  U\!  J)  vi^Y  (  j)  ARE  Lo..ER  lEFT  CoRNlR  AND  .  vi  rv .  I 
U  P  P  F  R  RIGHT  Cx.\NrR  «-  I  •'•’  I  T  C^oRDi  RATES*  *v*  k  W  I 

-  ..IN'  VlCTZR  FATA  IN  ■  h  “  F  .1 R  .*•'  (c*,  THlT(jJ»i.j(j)»Xi{JJ»Y«(Jj»  W.  N  1 

£  X ( J  )  f  Z  Y ( J  J  >  F  Z ( J  )  MAW  I 

t  6  F  :  2  •  3  )  H  --  F  r  Zc(-j)  I  -  T 1 1  w  H  Z  I  ^  i  i  I  of’  T ;  i  Z  o  —  1  H  v  Z  C  T  o  R  *  M  A  v.  I 

+  vA(  J)  I  o  TmZ  w  A..  T  ».r.KU  P  Z  1  N  T  i  N  o  ^o .  ,P  w  Zi^  T  oF  Trio  v-Tii  vlCToR»  Vik.,  i 

+  _  Y  {  J  )  I  T  i  'E  NciR  T  r  ,.  A R'j  rJ t.  I  N  T  I . »  o  Z *• .  iP o.-i  j_i ,  j  o  r  1  ri  l  J"ln  v  _  Z  T  oR  ♦  «*.n  \ 

a(J)  I  vi  1  i  Z  C  -  Po.i_,4T  oF  Trio  j-Ih  V  l  C  T  o  R  >  Ao(J)  lv  IHliXA..  1 

Z  a  s*  7  - . .  L  -  '  C  o  oKDINA  I  L  w  F  THE  J  —  T  h  i  v  Z  C  T  o  R  »  A  D  f  >>  l  j  )  U  T  m  E  R.  k  1 

C  *  Tr /“o  o  V,  7  n  Ct  c  RD  j  N/»  T or  T.i^  o  —  Tri  VaCIZR.  ‘mna* 

C  ThE  LAYER  R ADI  \  xPERATIo.N  I  T  Z,\*il  NAT  :D  „riL»N  ooTHiT(J)  =  .V«K  .v  T 

C  7SVn  j  •  o  .  ■  o  *•<  _  1  o  »-'Zv^JZl\l _ -  •  V  o  v_  i  o  R  R »_  m  o  x  iN  o  o  P  o  R  ^  1  1  o  N  .v,  n.  a  i 

C  IE  TERMINATED  .•<  r-  r  N  L  S  (  J  )  =  v  ?  S  >  /  v  •  0  ~  R  '  «Kl  1  S  •  x  C  o  uN  T  E  R  l.  D  •  N  n  W  a 

C  A  .  I  ND  FIELD  T^.PL  I  o  -  /h^ITTEN  l>Y  Thu  Pk  o  VxiC  M  «  •  <*.  K.  .*  ^ 


r,o  ..  w  w  A  i*.  Y  *  ■'*'  *  **•  *  «  *  >  *  £**■-*><# 


rl?rv  /-»  ;;L  ionTI  Do  f  r-.L  T  o  R  FoR  Tilo  V  o  K  I  I^mL  l/  i  -  T  AiN  E  C  O  l-'.fs, i 

!'  l  i  A  f  „c  i  s.i  iT  I  f  m>  T  wii  roR  T  i  i  l  mo»'.1<loi»T/\o  UI-^iA'iCl— '  ■*■  n.  »«  I 

L  i  s.J  /  ■» .  «  i\  ..  I  T  r\  «\  1  L  Y  u  /  \  R  Ul.  :  «  o  •  L  R  ivi  N.  1 

w.  E  T ,» Lo.J  7  nu  C^RRuNl  -.RU  Pol  NT  AND  THE  .-.ooT  I 

a-.'E  Tl  w  F  Tfu  ..o^.RlET  omT/^  Poi-NTo  .'i  n  I 

D»2l^)  ~  L  7.  FoR  i-^!ai.v.T  i«.\  ^oT  ^i.„Z1oHTlu  I 

.  L  2  I  ^  «  ~  ..  i  I  ot  5  T  L  U  o  ./»  ofr-hU.  u>  T  oKid  ^•'  o  1  •  »  r  M  I  >  Z  N  1 

T  Ft  C  J  —  T  h  DAT  A  V  ~  C  7  o  R  i*i  ,s  />  J 

C;  1  1  hi\  hKi  I  T  R  mR  i  L  Y  J.  'muu  \  V,^>.  I 

I  -  I  N  -j  Y  T  z  ' '  I  .N  P  w-  T  T  A  P  E  N  ^  .’•*  •  i  Z  R  Vi  K. .  i 

I  ■  xT  „Y.'Tp.‘  vHTPlT  T  APf  iVJ'M'Dn  MisWl 

FINAL  ( n  I  omER  )  a  INDEX  •  -uT  jLL  OkM 
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V.K..VI 

249 

Go  T?  7734 

«s  1 

2  lO 

115  5 

I  F  (  J’.*; - 1  )  I  I  z  6  »  i  j.  V  6  >  1  i  ^  7 
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*1 N  A  I 

c 

Mi  N  A  i 

J  -/  -J 

C 
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SDX2  =  C  •  0 
S  DY2  =  C  .  0 
5DZ2  =  0 . 0 
SDXY =0.0 
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SAMPLE  TEST  PROBLEM  AND  PRINTOUT 


The  sample  printout  that  follows  contains  essentially  all  of  the  information 
necessary  to  reconstruct  the  inputs  that  define  the  atmosphere  and  wind-field 
structure.  The  output  has  already  been  described  in  detail  in  Table  13. 


Preceding  page  Wank 


********** 


THE  DEPARTMENT  OF  DEF  E-N  SE  FALLOUT  PREDICTION  SYSTEM 


********** 


TRANSPORT  MODULE 


- PR£PAftt:-D--8¥ - 

TECHNICAL  OPERATIONS  RESEARCH, INC. 
- BURLINGTON,  HASS; - 


-*-*** - SUMMARY  OF  INPUT -IDENT-Ef  ICRS  AND  INITIAL  C-tM&H  EONS - *♦**- 


**♦* - INITI-AL  CONDITIONS  (FiREUALLI  IDENTIFICATION - **♦* - 

FOURTH  LARGE  SCVLE  TEST  OF  THE  OELFIC  SYSTEM,  IS  NUV.  1966,  INIT.  COND. 


****  CLOUD  RISE  IDENTIFICATION  **** 

-POUR  T+4  L  AR&fr  SCALE  TEST-OP  THE  OELFIC  SY-STE-H,  IS  NUV,— I96E, - CL  QUO  RISE 

-***» - PARTE  CCE  SET  EXPANSION  1 UENT  1  F  I  CAT  ION — **** - 

FOURTH  LARGE  SCALE  TEST  OF  THE  OELFIC  SYSTEM,  15  NOV.  1966,  PSE 


»*»*  THIS  RJN  0-  THE  TRANSPORT  MODULE  WAS  GIVEN  THE  FOLLOWING  IDENTIFICATION  **** 
—FOURTH— LARGE  SCALE-TEST  OF  THE  -OCLP4C  — SY STEM,-  IS- NUV.  1-966, - TRANSPORT - 


****  OTHER  INPUT  OATA  **** 


THE  CONTROL  VARIABLE  ARRAY,  IC(J),  HAS  BEEN  GIVEN  THE  FOLLOWING  VALUES. 


- — t — t— 

— e — 

-0 - 0- 

- 1 - 1 - -0 - 8 - 9- 

— 9 — -0 - 6 - 6 - 8 - 

-0 - -9- - - 

PARTICLE  OATA 

IPARIN 

l 

0. 13000E*07  0. 10000E+07 

O.OOOOOE-38  0.33729E+03 

0 

IN  THIS  RUN  WE 

ASSUME 

A  PLANAR  DEPOSITION 

SURFACE  AT  ELEVATION 

938. 17A 

THIS  WIND 

FIELD  USES 

THE  FRENCHMAN  FLATS 

ANO  ROAD  B  STATIONS. 

12/20/66 
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ATMOSPHERIC  PKUPbKTitS  €0*  HMt 


■  •  HfcltjH  f  (J6  dGI  FuM 
Of-  STRATUM 

-  rtereks  above  msl 


Vf  SC-05 1  H*-  - 


OI1Y8  I  F 


(  MKS> 


-0.  1 10006  +  0*- 
-0.900006+03 
-0.  700006*03- 
-0.500006*03 
—0.  300006*  03” 
-0. 100006*03 
0.  1  00006+03“ 
0. 300006*03 
— ■  O.  500006*03- 
0. 700006*03 
0.900006+03- 
0. 1  10006*04 
0.130006*04- 
0. I  50006*04 
0.  1  70006*04- 
0. 190006*04 

0.2  iGooe+ov- 

0.2  30006*04 
0.2  50006*  04- 
0.2  70006* 04 
0.  2  90006*  04- 
0.310006*04 
0.  3  3000 6*04- 
C.  3d/'OOL*C4 
0.3  70006*04 
0.  390006*04 
O.h  10006*04- 
0.4  30C0L *  C4 
0.4  30  306*04- 
. 4  70001*  04 
0 *  4 900 tt*  04- 
(.  .  5  10006*04 
0.  530006*04- 
0. 550006*04 
0.5  70006*04- 
0. b  90006*04 
0.6  10006*04- 
0.6  5000  E  *  04 
0.650006*04- 
0.6  7000  6*04 
C  •  6  90006*  04- 
710006*04 

—  0.  730006*04- 
0. 750006*04 

-  -  0.  770006*04- 

C. 790006*04 
0. 6  10006*04- 
0. B3000E*04 
0.650006*04- 
0. d  70006*04 

-  0.  8  90006  +  0V- 

0.910006*04 
0.  930006*04- 
0.950006*04 


■0.  1 
0.  I 
■tf.i 
0.  1 
-0.  1 
0.  I 
-o.  I 
C.  1 

O-rl 

0.  1 
-O.  1 
0.  1 
•0.  1 
0.1 
-0.  I 
0.  1 
-o.  1 
0.  1 
'0.  1 
C.  1 
-O.  I 
C.  1 
■0.1 
C.l 
-0.  I 


B20t>€ — 04— 
81446-04 
8Od2t-0<r- 
80196-04 
79^7 €-04- 
35146-04 
84436-04“ 
83726-04 
8  3 

32306-04 

86246-04- 

8 452 t-C4 

8  3  73E-04- 

82836-04 

81806-04- 

80906-04 

8000  6—04  - 

79056-04 

7d37€-04- 

77146-0 

761  66 — 04— 

75276-04 

74266-04- 

73296-04 

72bo6-04 


3*»  70t*0 1 
0.  132196+01 
-t).  1297~2r+0 1 
C. 127286+31 
0  •'€246  7t+0  1 
0. 115926*0  1 
- tr^l  I40o t +0  1 
0. 1 12206+0  1 
)1 

0. 1Co4  76*0  l 
-0- vi  02  ?  4  6~+0 1 
C . 102 loE+0  1 
-0. 1006 4b +0 t 
0.990056+GC 


0.955396  +OC 

C.923736+0U 
-0 .915096*00 — 
C. 894036  +  00 
-0  »  d-78410+00 — 
0  •  863  726 *00 
”0  . b46 1 46+00 
C. 833526+00 
0  •  8  204O6+0C* 


0. i 7 lo9  6-04 
O.  I  70946-04’- — 
0. L  7008  6-04 
0  •  l o92B  t-04 
c.iJonE-H 
-o.  16820  6-04 
'0  •  1  > 7  o  o  6  -  C  4 
O.lo 72 36-04  — 
0. 16082 6- 04 
0 . loot  1 L-C  4 
C.lto55aL-«4 
0.  1  64  71 6-04 
0 .  1  ->380  6-04 
-0.  162906-04 
0. 182006-04 
0.161096-04 
0 • 1 8039  E-o4 
-0.169696-04 
0. 15900E-C4 

0. 156206-04 - 

0. 157396-04 

-0  •  1 56686—04 - 

0. 155776-04 

-0.154966-09 - 

0.154156-04 

-0.  153346-04 - 

0.152556-04 

0.1 51806—04 - 

0.151056-04 


t  .  8C2 106  +00 

C«  7  738  86  +  00 
O.-759566+Gu 
C •  744o2 1 +CC 
— 9.  726676*00- 
C.  711516+00 
0.694  7  76  »00 
0.678826+00 

0.650626+00 

0.62492E+00 
-0.66 26  36*00 
0.600136+00 

0 . 57o 1 3E+00 

0 . 553016+00 

— 0 . 64 1686*00 

0.530796+00 

U  I  3  1“  I  UC  TvV 

0. 508616*00 
0.497526*00 
0.486436+00 
0. 475356*00 
0.464556+00 

0  •  44442 E  +  00 


*0.9  7 0*'0fc«-0<r- 
L  •  *•  9900r *  C4 
-»>.  lOlOOfc*Oj- 
0.1 G39C  t *03 
-).  1  06Q0E-*  O'V- 
0. l070Ct*03 
-0.  1  09001*06— 
0.111  0000; 

•  1  1  3G0h*03— 
0.  1  I6(?0t*0.> 
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..lii 
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-'.1/7  >rt  *c*r- 
’  .  1  7 6  0 0 l  *  "'n 
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APPENDIX  A 


THEORY  OF  OROGRAPHIC  FLOW  WITH  APPLICATION 
TO  TROPOSPHERIC  FALLOUT 


Introduction 

It  has  been  recognized  for  some  time  that  terrain  effects  influence  the  ultimate 
distribution  of  local  (less  than  160  km  from  blast  area)  radioactivity  resulting  from 
a  tropospheric  nuclear  explosion.  The  vertical  lifting  of  light  debris  over  mountains 
can  extend  the  fallout  range  beyond  the  usual  expectations,  while  gradual  but  ex¬ 
tended  depressions  will  shorten  it.  The  need  to  develop  a  mathematical  model  for 
flow  over  variable  terrain,  which  can  be  rendered  compatible  with  such  systems, 
arises  principally  from  the  lack  of  sufficient  meteorological  data  at  this  time  to 

yield  a  satisfactory  time  and  space  dependent  picture  of  the  wind  field  over  short 

* 

distances.  Although  sounding  stations  at  14-mi  intervals  are  planned  in  the  near 
future  (Army  Integrated  Meteorological  System),  it  is  questionable  whether  even 
this  will  be  sufficient  to  account  for  local  variations  of  the  wind  field.  The  model 
of  variable  terrain  flow  developed  in  this  investigation  is  conceived  for  the  purpose 
of  enabling  one  to  predict  the  wind  field  in  regions  where  meteorological  data  are 
not  usually  available. 

Our  model  is  based  upon  a  perturbation  treatment  of  the  usual  hydrodynamic - 
thermodynamic  equations  assuming  an  adiabatic  atmosphere,  and  is  predicated  on 
the  assumption  of  the  existence  of  a  uniform,  steady  velocity  field,  uQ,  which 
would  otherwise  exist  in  the  absence  of  the  ground  disturbance.  The  relationship 
between  the  change  in  the  wind  field  Av(x,  y,  z)  and  the  curvature  of  the  terrain  is 
deduced  by  first  deriving  the  dispersion  relationship  for  the  system  (which  con¬ 
nects  the  vertical  attenuation  constant  of  the  velocity  field  to  the  periodicity  of  the 
ground  structure)  and  subsequently  applying  the  boundary  condition  that  the  surface 
wind  trajectory  be  parallel  to  the  terrain.  The  resulting  expressions  become 
greatly  simplified  for  short  wavelengths  and  when  the  Coriolis  effect  is  neglected. 
However,  for  most  practical  cases  involving  tropospheric  fallout,  the  foregoing 
restrictions  are  not  severe  since  sounding  stations  are  presumed  to  exist  at  rea¬ 
sonable  distances  from  each  other. 
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From  a  theoretical  point  of  view,  this  investigation  is  a  modified  extension  of 

A  1  A  2 

the  earlier  work  of  Oueney,  '  ’  ' J  but  there  are  differences  which  render  some¬ 

what  different  results.  Although  both  models  utilize  perturbation  theory  to  include 
the  effects  of  variable  terrain,  there  is  a  distinct  conceptual  difference  between 
them  arising  from  the  choice  of  the  dependent  variables.  Queney  deals  with  the 
displaced  trajectories  of  the  streamlines  as  the  fundamental  physical  quantities  of 
interest  (which  seems  to  introduce  extra  degrees  of  complexity  into  the  problem), 
while  we  treat  the  changes  in  the  velocity  field.  Our  method  of  attack  permits  more 
refined  criteria  for  establishing  the  validity  of  the  calculation  and  leads  quite  natu¬ 
rally  to  a  generalization  to  three-dimensional  systems,  which  are  more  frequently 
encountered  than  the  two-dimensional  idealizations  of  Oueney.  Moreover,  we  show 
that  a  perturbation  theory  model  for  the  hydrodynamics  does  not  necessarily  imply 
the  applicability  of  superposition  of  ground  disturbances,  a  result  which  does  not 
seem  to  have  been  recognized  earlier.  This  is  a  distinct  problem.  However,  we 
are  able  to  demonstrate  that  the  superposition  hypothesis  can  serve  as  the  basis  of 
an  iterative  scheme  for  computing  the  velocity  field  to  an  arbitrary  degree  of  accu¬ 
racy  consistent  with  the  initial  premises  of  the  perturbation  method.  In  certain 
two-dimensional  cases,  there  does  not  appear  to  be  much  difference  between 
Queney's  results  and  ours. 

The  overall  validity  of  the  model  is  based  upon  the  applicability  of  the  non- 
turbulent  hydrodynamics  equations  together  with  the  assumption  of  an  adiabatic  at¬ 
mosphere  in  the  unperturbed  state.  Consequently,  the  solutions  do  not  yield  lee 
waves  when  applied  to  the  assumed  small  scale  disturbances  considered  in  this 
investigation.  In  addition,  the  results  are  not  generally  valid  in  the  lower  regions 
of  the  atmosphere  where  turbulent  boundary  layer  effects  may  dominate  the  physical 
processes;  however,  this  is  not  especially  important  for  fallout  since  uncertainties 
attributed  to  lower  atmosphere  effects  will  be  only  a  few  hundred  feet. 

Soluble  mathematical  models  of  airflow  in  the  troposphere  must  in  some  mea¬ 
sure  be  removed  from  reality  because  of  the  enormous  complexity  of  the  actual 
physical  system.  Despite  this  inherent  limitation,  the  nonturbulent  models  of  air¬ 
flow  can  be  useful  for  fallout  calculations  if  they  at  least  semiquantitatively  describe 
the  salient  features  of  the  particular  aerodynamics.  The  utility  of  such  models  can 
best  be  evaluated  by  comparison  with  suitable  experiments. 
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Geometric  Considerations 

For  mathematical  simplicity  the  origin  is  located  at  a  suitable  point  in  the 
region  where  the  airflow  is  to  be  computed.  The  x  axis  is  established  along  the 
unperturbed  wind  direction,  the  y  axis  is  perpendicular  to  the  x  axis,  and  the  z- 
axis  points  in  the  direction  of  the  zenith.  If  e  denotes  the  angle  between  the  local 
west-east  direction  and  the  unperturbed  wind  velocity,  then  the  components  of  Cl 
are  given  by 

Cl  =  Cl  cos  0  cos  e,  Cl  =  Cl  cos  0  sin  e,  Cl  -  Cl  , 
y  x  z  z 

where  0  is  the  latitude,  and  Cl  is  the  sideral  day  frequency  which  equals 
-5  -1 

7.3  x  10  sec  .  For  our  problems  all  the  components  of  2  are  assumed  con¬ 
stant  (i.e. ,  the  curvature  of  the  earth  is  neglected). 

Theory  of  Airflow 

Airflow  c  er  variable  terrain  can  be  determined  by  assuming  that  the  changes 
in  wind  velocity  caused  by  the  ground  irregularities  are  a  small  perturbation  on 
the  wind  field.  It  is  postulated  that  if  the  ground  were  flat,  the  wind  velocity,  u, 
would  be  constant  both  in  position  and  time.  Orographic  effects  due  to  mountains 
and  valleys  then  cause  the  wind  field  to  change  in  a  determined  way  as  computed 
from  the  perturbation  theory. 

The  origin  of  the  coordinate  system  is  established  at  a  suitable  point  in  the 
vicinity  of  the  region  where  the  wind  field  is  to  be  computed.  Assuming  that  for 
all  times  the  thermodynamic  process  which  describes  the  flow  of  air  is  isentropic, 
the  relationship  between  pressure  P  and  air-mass  density  p  is  given  by 

(p/Pe)  =  (p/pe)T  =  (T/Te)1'/'1->'>  ,  (A.l, 


where  Pe>  pg,  and  Tg  are  the  pressure,  mass  density,  and  temperature  at  the  ori¬ 
gin  in  the  unperturbed  case  and  7  =  1.4.  These  quantities  are  further  related  to 
each  other  by  the  ideal  gas  law, 

Pe=(PeWe/m)  ,  (A.  2) 
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where  k  is  the  Boltzmann  constant  (k  =  1.38  x  10-16  erg  deg-1),  and  m  is  the  mass 
of  the  air  molecule.  The  two  equations  which  describe  the  aerodynamics  are  the 
continuity  equation  and  the  momentum  equation: 


and 


8p/8t  +  V  «  (p  v)  =  0 


(A.  3) 


dv/dt  =  2vx  -  Vi/j  +  G  , 


(A-  4) 


where  G  is  the  gravity  force  and  is  equal  to  -Gk,  and  ip  is  a  potential  obtained  by 
combining  the  (l/p)VP  term  with  Eq.  (A.  1). 


4>  =  ( Pe  [y/(y  -  i)]  p(y 


(A  5) 


We  assume  that  a  steady  state  exists  in  which  there  is  only  one  uniform  (spatially 
homogeneous)  component  of  velocity,  uQ>  which,  by  construction,  is  parallel  to  the 
x  direction.  The  system  of  equations  then  reduces  to 

0  =  -8 iP/dx,  0  =  -2uq^z  -  dip/dy,  0  =  2uQfiy  -  diP/dz  -  G  .  (A.  6) 

The  general  solution  to  Eq.  (A.  6)  is  given  by 

ip  =  Ay  +  Bz  +  iPor  ,  (A  ,  7) 

which  when  substituted  into  the  foregoing  equations  gives 

A  =  -2u  0  ,  B  =  -G  +  2u  -  -G  ,  (A  8) 

o  z  o  y 

i'or  =  y/(y  - 1)  Pe  /p6  =  y/(y  - 1)  (kTe  /mj  =  c^  /(y  -  i)  ,  (A.9> 


where  cg 


is  the  speed  of  sound  and  equals  3.4x10 


4 


-1 

cm  sec 


under  STP  conditions. 
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A  measure  of  the  distances  over  which  changes  in  ib  are  important  in  the  equi¬ 
librium  case  can  be  determined  by  examining  the  ratios  / i  A  f  =  yc  and 
^or  /i  =  zc>  which  are  respectively  the  distances  over  which  the  independent 
changes  in  ip  equal  the  value  at  the  origin.  We  have 


and 


29  x  108 

yc  2u  £2 
o  z 


(A.  10) 


29  x  10  „  ,  „6  „„  /A  , , „ 

Zc  ~  — 980 —  -  3  x  10  cm  -  20  mi  .  (A.  11) 

-5  -1 

Using  a  maximum  value  of  £2  -  £2  =  73x10  sec  and  a  value  of  u  =  4400  cm 

°  z  o 

sec  (corresponding  to  a  100  mph  wind)  gives  a  value  of  y  -  4.5x  10®  cm 

A  C 

=  3  x  104  mi  which  signifies  that. for  local  fallout  vaiiations  in  y  can  be  neglected 
altogether  in  the  equilibrium  case.  This  will  not  be  true  in  general  in  the  per¬ 
turbed  case . 

The  initial  state  of  the  system  is  thus  specified  by  the  velocity 

v  =  iu  (A.  12) 

~  ~  o 

and  density 


P  =•  PQ(z)  =  Pe(l  ~  z/zc  1)  =  Pe(l  -  cvz)1//(Y  '  1)  ,  (A. 13) 

where 

a  -  1/z  =  l/(  3  x  106 )  =  0.33  x  10_G  cm-1  .  (A.  14) 

5 

If  attention  is  further  confined  to  the  troposphere  (z  <  2  mi  -  3.0  x  10'  cm),  the 
variation  of  density  with  altitude  is  approximated  by 

PQ(Z)  ~  Pe  I1  "  {  a/(y  ~  1)]  z|  =  Pe(!  -  0z)  ~  Pe  e"^Z  ,  (A.  15) 
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where  j3  is  defined  as  the  tropospheric  density  attenuation  constant, 


p  =  a/(y  -  1)  =  mG/ykTe  =  2. 5a  =  0.  83  x  10  6  cm  1  .  (A.  16) 

We  now  assume  that  the  three  components  of  velocity  and  density  become  modi¬ 
fied  by  the  terrain.  The  perturbed  quantities  are  assumed  to  be  related  to  the  un¬ 
perturbed  ones  by  the  equations 


u  =  u  +  u, 
P  o 


V  =  V, 

p 


ib  =  ip  +  Hi  ,  (A.  17) 
p  Yo  ' 


Substituting  Eq.  (A.  17)  into  Eqs.  (A. 3)  and  (A. 4)  and  neglecting  second  order 
effects,  such  as  pw  and  vw,  gives  under  stationary  conditions  (a/at  =  0) 


8u 

9x 


8v 

ay 


aw 

8z 


uok~p  * 


+  whl>< =  0 


(A.  18) 


u 


au 
o  3x 


2/  vO  -  wfl  \ 

l  z  y) 


M 

ax 


(A.  19) 


and 


8v 
uo  ax 


2/'wS2  -  uil 

^  X  z 


M 

ay 


u 


aw 
o  ax 


2(  uf2  -  vO  \  - 
V  y  xj  az 


(A.  20) 


(A.  21) 


For  mathematical  convenience,  it  is  desirable  to  deal  with  a  function,  rj ,  re¬ 
lated  to  the  initial  density  pQ  by  the  formula 

V  =  p/pQ  •  (A.  22) 


I 


In  terms  of  t),  ip  is  given  by 


4>  =  ^pQ  +  p)  -0(PO)  =  Y(pe^e)prl7?  • 
Using  Eq.  (A.  13)  for  pQ(z)  gives 

Hi  =  ^ykTg  /myi  -  Ofz)r)  ; 
while  the  derivatives  of  0>  are 


ax 


ykTg 

m 


(1  -  «)  g 


M 

ay 


(1  -  otz) 


M 

ay 


and 


M 

az 


-<y  -  i)  g 


+ 


ykTg 

m 


(1  -  az) 


ait 

az 


(A.  23) 


(A.  24) 


(A.  25) 


(A.  26) 


(A.  27) 


The  object  at  this  point  is  to  reduce  Eqs.  (A.  18)-(A.  21)  to  a  system  of  linear 
equations  with  constant  coefficients.  This  can  readily  be  accomplished  by  restrict¬ 
ing  the  calculation  to  values  of  z  much  less  than  zfi  so  that  (1  -o,z)  =  (l  -z/zc)  -  1. 
Also,  within  this  range,  lnp  =  lnp  -  /3z,  thereby  yielding 

O  6 


uo  k" 


(iW  =  0 


(A.  28) 


u 


-  2  (vU 

o  ax  v  z 


ykT  - 
_ _ e  dji 

m  ax 


(A.  29) 
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o  ax 


ykTe 
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9 a 
ay 


(A.  30) 
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and 


u 


9w 
o  8x 


=  2/  uO  -  vft  \  +  (y  -  l)Grj 


YkT 


m 


dj2 

dz 


(A  31) 


Equations  (A.  28)-(A.31)  relate  the  perturbed  quantities  to  one  another,  but  the 
absolute  scale  of  the  perturbations  must  be  obtained  from  the  new  boundary  con¬ 
ditions.  We  now  assume  that  each  of  the  perturbed  quantities  can  be  expressed  by 
an  expansion  of  plane  waves. 


and 


u  =  y  A(i^)  e*~  ~  d^k, 


=  ^  B(k^)  e*~  ~  d^k  , 


(A  32) 


,  ,  ik  •  r  ,3,  T  ,  ik  r  .3, 

w  =  \  C(k)  e~~dk,  i?  =  \  D(k)  e  ~  ~  d  k  , 


where  d3k  =  dk  dk  dk  .  Substituting  Eq.  (A. 32)  into  Eqs.  (A,  28)-(A.  31)  leads 
x  y  z 

to  the  dispersion  relationship  between  the  components  of  the  wave  vector.  Thus, 
we  have 


ik  u  -2ft  2ft 
x  o  z  y 


2ft  ik  u  -2ft 
z  x  o  x 


(tkxG/0) 

(iky°/0) 

(1  -  y)G  +  ( ikzG //? 


=  0  -  (A, 33) 


The  only  nontrivial  solutions  to  Eq.  (A.  33)  occur  when  the  determinant  of  the  matrix 

equals  zero.  This  establishes  a  connection  between  k  ,  k  ,  and  k  .  The  so-called 

x’  y’  z 

dispersion  relationship  can  be  interpreted  in  several  ways  depending  on  which  com¬ 
ponents)  of  the  wave  vector  k  can  be  preassigned.  It  is  at  this  point  that  the  per¬ 
tinent  physical  factors  are  introduced  into  the  problem.  Since  the  topography  can 
be  resolved  into  periodic  components  of  x  and  y,  we  must  necessarily  regard  kx  and 
k  as  real  numbers.  The  dispersion  relationship  is  then  interpreted  as 


k 

z 


k  ,k 
x’  y 


(A.  34) 
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For  each  set  of  values  (k  , kv)  there  will  be  two  solutions  of  Eq.  (A. 34)  that 
correspond  to  the  roots  of  the  equation  which  results  when  the  determinant  of  the 
matrix  Eq.  (A.  33)  is  set  equal  to  zero.  Since  the  number  of  solutions  of  Eq.  (A.  34) 
is  finite,  we  can  contract  the  description  of  the  Fourier  components  of  the  field 
quantities.  For  example,  w  now  becomes 


w(x,y,z)  = 


k  ,  k  \ 

.  x  y; 


ik  x 
x 

e  e 


ik 


yy„^(kx,ky); 


dk  dk 


where  k^  stands  for  the  root  of  Eq.  (A.  34).  Setting  the  determinant  of  the 
matrix  of  Eq.  (A.  33)  equal  to  zero  leads  to  the  dispersion  relationship 


ak^  +  b  ^  ikz  ^  +  c  =  0  , 


(A.  35) 


where 


i,2  2  n2  2\ 

a  =  aku  -  Q  oo 

x  o  x  j 


(A.  36a) 


b  =  ct 


2  2  2  f  2 

•yflk  u  +  2J2k  k  u  oo  +  fi  2ik  w  w  +  2ik  u  w  -  yQu 

•  1  q  ^  y  OX  \  X  Z  X  y  z  y  '  1  ^ 


(A.  36b) 


and 

.  2  2 
c  =  k  u 
x  o 


i  ,  2  .  2"\  2,  2  ,  „2 

CT  (  kx  ky  )  -  uQkx  +  (1  -  y )oP 


+  ft/ 3o 


2  /  2 
2k  oj  u  -  y  w  u  k  -wukk 
x  y  o  f\yox  xoxy 


+  ft" 


in  which 


2  2 


,2  2, 


4k  u  -  of  k  oo  +  kcu  \  -  w  (1  -  y)oB  -  Boy!  ik  co  oo  +  ik  oo  oo  \ 
xo  ^  x  x  yyj  zv  ^  r  [  x  x  y  y  y  zj 

(A.  36c) 


oo  =  2ftY  /ft,  w  =  2ft  /ft,  u  =  20  /ft,  a  =  (g/b)  .  (A. 37) 

x  a  y  y  z  z 
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Since  Eq  33;  is  homogeneous,  the  absolute  magnitudes  oi  th^  iunctions 
A(k).  B(k),  C^k ),  and  D(k)  cannot  be  determined;  only  their  relationship  to  each 
other,  as  deduced  from  the  boundary  conditions,  can.  For  mathematical  conve¬ 
nience  it  is  desirable  to  eliminate  D(k)  and  deal  only  with  the  Fourier  transforms 
of  the  velocity  components  of  the  wind  velocity.  Thus,  we  obtain  the  equation 


(A  38. 


where  the  b^'s  are  the  elements  of  a  matrix  I)  and  are  given  by 

b, ,  -  ik  £  +  iu  k  floj  .  b10  =  ik  £  -  iu  k  Gus  ,  b,_  -  /  ik  -  (3  \£  +  ;u  k 

11  x-  ox  y  12  y-  ox  x’  13  y  z  r  o  x, 

b01  =  f  ik  u  \  £  +  ik  >  ,  bno  =  -ficj  £  -  ,  ik  a\  ,  b00  -  fio;  £  -  ; ik  cr  ,  ik  u 

21  ^  x  o )  '  x  y  22  zs  [  x  )  x  23  y^  [  x  r  x  o  ’ 


b  --  flo;  £  +  (ik  cn f2w  ,  b„  =  ik  u  £  -  ^ ik  a\  fiw  ,  bor>  ~  -ftw  £  +  k  k  ou  , 
31  zs  y  /  y  32  x  os  \  y  1  x’  33  Xs  x  y  o 


■  A  39- 


in  which  £  -  (1  -  7)  G  +  (ikzo)  and  a  -  (G /ft). 

The  dispersion  relationship  derived  by  setting  the  determinant  ot  b  equal  to 
zero  is  necessarily  the  same  as  that  previously  derived.  Using  Eq.  p\..38j,  we 
deduce  the  general  relationship  between  the  Fourier  transforms  of  the  velocity 
components. 


and 


A  =-  - 


b12b33  "  b13b32  j 
b12b31  " bllb32  ) 


T,  k  , k  \  Cl  k  ,k  ; 
l  x  y)  x  y! 


(A  40 


i  b13b31  “  bllb33 ) 

B  -  -  — r  - r— 7- r  C  -  U:  k  ,  k  \  Cl  k  ,k  \ 

(  b12b31  -  bllb32  }  '■  X  '  X  y  ' 


\A  .  4  1  ■ 
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Up  to  this  point  the  analysis  has  been  quite  general,  but  henceforth  we  shall 
focus  attention  in  the  regime  where  the  Coriolis  effect  is  negligible.  This  is  equiv¬ 
alent  to  setting  £2  =  0 .  The  relationships  between  the  physical  parameters  which 
must  be  satisfied  to  justify  this  step  for  fallout  applications  is  discussed  later  in 
this  appendix.  Setting  £2  =  0  in  the  dispersion  relationship  gives 

akz+  (ikz)a^+  CT(kx  +  ky 

We  now  let 

X  =  -ik  ,  (A.  43) 

9  2-22 

anticipating  an  exponential  decay  with  altitude.  Since  a  =G/(3=  1 . 2x  10  cm  sec  »u  , 

2  2  ° 
we  can  neglect  u  k  in  Eq.  (A. 42)  and  thus  obtain 

O  X 

X2  +  Xyp  -  k2  -  k2  +  (y  -  1)  02  =  0  .  (A.  44) 

x  y 

The  roots  of  Eq .  (A .  44)  are  given  by 


-uV  +  (1  -y)a£2  =  0  .  (A.  42) 


X  =  - 


(yP)  +  4 


k2  +  k2  -  02( y  -  1) 
x  y 


|l/2 


(A.  45) 


Since  we  are  primarily  interested  in  short  range  effects,  we  shall  freely  make  use 
2  2  2 

of  the  inequality  k  +  k  »  /?  (this  implies  that  the  wavelength  of  the  horizontal 
_i x  y 

variations,  2n/3  ,  be  less  than  50  mi),  which  yields  the  following  two  roots  of 

Eq.  (A. 45) 


A  -  =fc 


2  ox  1/2 


k“  +  k  | 

x  y ) 


(A.  46) 


where  only  the  positive  root  is  acceptable  on  physical  grounds  since  this  guarantees 
that  the  perturbations  will  dampen  at  high  altitudes.  Using  the  plus  root  of  Eq. 

(A. 46)  in  Eqs.  (A. 40)  and  (A. 41)  gives 

f  2  2\1/2 

T(kx’ky)  =  -ikx/(kx  +  k;)  ’  <A'47> 
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and 

U(kx*ky)  =  -iky/Ckx  +  ky)  ■  <A’48' 

From  Eqs.  (A.46)-(A.48)  we  deduce  the  following  expressions  for  the  perturbed 
velocity  components: 


w(x,  y,  z)  = 


+  oo  +  oo  f  9  2\^//^ 

P  p  i/kx  +  ky\  -fk^  +  k^' 

I  I  Tx'Me(x  y)*  U  yy 


dk  dk 
x  y 


—  oo  -oo 


(A ,  49) 


+00+00 


u(x,y,z)  =  ^  ^  J-ik^(k2  +  k2^  -  ^  X  y 


-1/2  i/k  x  +  k  y 

e  ^  y  yC/k  ,k  \ 

l  x  yj 


C/k  ,k  \  e  vX  y 


2  2\+1/2 
k  +kz)  z 


dk  dk 
x  y 

(A.  50) 


and 


+00+00 


I  (~iky)(k*  +  k: 


*\Vt  ‘(kxx  +  V) 


-(k2+k2 


C/k  ,k\eVx  y 

v  x  yJ 


+  1/2 


dk  dk 
x  y 

(A  51) 


The  function  C(kv,k  )  is  determined  by  application  of  the  perturbed  boundary 

A  V 


condition.  Let 


<Mx,  y,  z)  =  0  =  z  -  f(x,y) 


(A.  52) 


be  the  equation  of  the  earth's  surface.  The  normal  to  this  surface  is  Vd>: 


V0  =  - 


af 

0X 


- 1 


8f 

9y 


+  k 


(A.  53, 


On  physical  grounds,  we  must  necessarily  demand  that  the  wind  velocity  be  parallel 
to  the  surface  z  =  f(x,y)  at  every  point.  Thus,  the  boundary  conditions  are  mathe¬ 
matically  stated  as 


l(v  •  v4>)]  =  0 

along  z  =  f(x,  y)  , 


(A  54» 
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where 


v  = 

rs»i 


iu  +  J.V  +  kw  =  iuo  +  (iu  +  iv  +  kw) 


(A.  55) 


Inserting  Eq.  (A. 55)  into  Eq.  (A. 54)  gives 


w(x, y,  z  =  f)  =  \  +  u(x,  ys  z  =  f)  +  v(x>y,z  =  f)  .  (A. 56) 


Using  Eqs.  (A.47)-(A.  51)  in  Eq.  (A.  56)  yields  the  following  integral  equation 
for  C(kx,ky): 


k  k  u 
x  y 


l-T/k,k  \  ( -  u/k  -k  )  f— 

l  x  yj  \dxj  {  x-  y)  L 9y 


ik  x  ik 

c(kx,ky)  e  a 


'(kx+k^)1/Zt<x’y> 


'“oil  (ikx)  F(VV) 


k  k 
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j  dk  dk 

x  y 


ik  x  ik  y 

e  x  e  *  dk  dk  , 

x  y 


(A.  57) 


where 


F(  kx’ky  )  =(i) 


-ik  x  -ik  y 
e  x  e  ^  dx  dy  , 


and 


(A.  58) 


f(x,y)  -  $$  F(kx,ky)  A 


ik  x  ik  y 

v  V 

e  y  dk  dk 

x  y 


The  solution  for  C(kx:  ky)  is  impossible  to  achieve  by  direct  means  because  of 
the  dependence  of  the  integration  of  the  left-hand  side  of  Eq.  (A. 57)  on  f(x,y)  and  on 
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the  derivatives  of  f(x,y).  However,  a  systematic  perturbation  method  for  comput¬ 
ing  Cfk^,  ky)  can  be  deduced.  The  approximation  to  0(1^,  k^),  achieved  by  setting- 

exp  -  >'  +  k^  "  f(x,y)  equal  to  unity,  is  equivalent  to  assuming  that  the 

maximum  elevation,  fmax»  is  small  compared  to  the  wavelength  of  the  horizontal 
oscillation,  or  in  simpler  terms  the  slope  of  the  terrain  is  small.  On  the  other 
hand,  the  neglect  of  u(3f/3x)  as  compared  to  uQ(3f/3x)  is  necessarily  consistent 
with  the  initial  premise  of  the  perturbation  method  used  in  this  analysis,  namely 
that  the  change  in  the  velocity  field  be  small  compared  to  the  initial  velocity.  This 
obviously  must  apply  when  comparing  u  to  uQ.  The  neglect  of  v(3f/3y)  as  compared 
to  uQ(3f/3x)  is  somewhat  difficult  to  justify  under  all  cases.  Although  v  is  assumed 
small  compared  to  uQ,  we  must  also  be  sure  that  (3f/3y)  is  not  substantially  greater 
than  (3f/3x). 

Theapriori  assumption 


-  f  3f\  -  ( 3f\  /  3 f 

\dx )  v9y  )  °  v9x 


(A.  59, 


is  equivalent  to  neglecting  -T(3f/3x)  -  U(3f/3y)  as  compared  to  unity  in  Eq.  (A. 57). 
The  systematic  method  for  computing  C(kx,ky)  is  based  upon  Eq.  (A.  59)  coupled 
with  the  previously  mentioned  approximation 


'  9  2\l/2  1 

\+ky)  f(x,y)  =  r 


(A.  60' 


Introduction  of  the  functions 


%  =  i  -r  = 


n! 


(A.  61) 


where 


0  =  -(kx  +  kf)  f(x>y)  > 


(A.  62. 
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and 


r  =  T7k  ,k  \  [~]  + 

^  x  yj  \dx j 


U(kx'ky)(l 


(A.  63) 


permits  Eq.  (A. 57)  to  be  written  as 


J  C(k)  e1^’  ~  dk  =  uq  J  H(k)  e1^*  ~  dk  +  J  AC(k)  e1-'  ~  dk  .  (A.  64) 


where 


A  =  (r  +  £  -  £r)  =  A(k,x,y),  H(k)  =  ikxF(k),  k  =  ikx+iky>  dk  =  dkx  dky 
Multiplying  Eq.  (A.  64)  by  exp  (-ik'  •  r),  and  then  integrating  over  r,  gives 


C(k')  = 


u  H(k')  +  (~- 
o  v~ '  \2 


.)2 1 1 

k  r 


A(k,r)  C(k)  e*^  ~  dk  dr 


(A.  65) 


The  perturbation  scheme  is  developed  by  regarding  the  second  term  on  the  right- 
hand  side  of  Eq.  (A. 65)  as  small.  The  first  approximation  to  C(k),  denoted  by 

,  is  deduced  by  completely  disregarding  the  second  term  of  the  right-hand  side. 
Thus 


,<D 


(£)  -  U0H<£>  “ 


Uo(ikx) 


F<£> 


(A.  66) 


Since  F(k)  is  the  sum  of  individual  contributions  to  the  topography,  we  see  that  the 
principle  of  linear  superposition  is  also  reflected  in  C^(k).  The  second  approxi¬ 
mation  is  obtained  by  using  Eq.  (A.  66)  for  C(k)  in  the  integral  expression 


C(2)(k')  =  uoH(k')  + 


k  r 


A(k,r) 


u  H(k ) 
o  v~ 


i(k  -k')>  r  ,,  , 

;  ~  ’  ~  dk  dr  . 


(A.  67) 
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It  follows  by  inspection  that  the  nth  approximation  to  C(k )  is  given  by 


C<n>(k'> 


u  H(k') 
o  ~ 


;^)2n 


Aflc.rJC^fk) 


i(k  -k')-  r 


dk  dr 


(A.  68) 


with 


The  corresponding  Fourier  transforms  of  the  perturbed  x  and  y  components  of 
the  wind  field,  A(k)  and  B(k)  respectively,  are  found  from  Eqs.  (A. 40)  and  (A, 41) 
to  the  same  order  of  approximation.  The  ultimate  validity  of  this  perturbation 
method  can  be  evaluated  only  posteriorly  —  by  comparing  the  calculated  change  in 
the  magnitude  of  the  wind  field  with  uq.  Mathematically,  the  developed  theory  is 
valid  so  long  as 

u^  +  v^  +  w^  <  u^  .  (A.  69) 

The  prescription  for  calculating  the  wind  field  due  to  terrain  effects  is  sum¬ 
marized  as  follows.  Equation  (A.  68)  is  used  to  compute  the  Fourier  transform  of 
the  vertical  wind.  The  Fourier  transform  of  the  change  in  the  horizontal  compo¬ 
nents  of  the  wind  field  is  then  determined  by  Eqs.  (A. 40)  and  (A. 41).  Finally,  the 
inversion  formula  is  employed  to  compute  u(r ),  v(r ),  and  w(r ). 

The  value  of  computing  C(k)  beyond  the  first  approximation  is  worthwhile,  even 
though  the  hydrodynamics  model  considers  only  the  first  correction  to  the  flow, 
because  the  iteration  scheme  can  more  precisely  establish  the  range  of  validity  of 
the  first  approximation  to  C(k)  and  the  dependence  of  C(k)  on  the  characteristic 
features  of  the  terrain.  Most  topography  is  complex  and,  as  such,  cannot  always 
be  represented  by  a  simple  periodic  structure,  but  rather  by  a  sum  of  frequencies. 
The  higher  corrections  to  C(k)  take  into  account  the  interaction  between  the  Fourier 
components  of  the  ground  structure  and,  consequently,  must  be  evaluated  to  more 
firmly  establish  the  validity  of  the  superposition  principle  implicit  in  the  first 
approximation. 
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In  the  next  section,  we  shall  apply  the  first-order  theory  to  compute  changes 
in  the  wind  field  caused  by  specific  orographic  effects.  However,  now  we  shall 
consider  a  simple  two  dimension  periodic  structure  to  exhibit  the  method  for  com¬ 
puting  higher  order  corrections  to  C(k), 


Let 


ik  x 

f(x)  =  h  e  ° 


(A.  70) 


from  which  we  have: 


dx  =  hd 


k  -  k  ) 

°) 


(A.  71) 


and 


C(1)(k)  -  ikuh5(k  -kQ)  =  iuo(kQh)  6(k  -k\  ,  (A.  72) 


where  6(k)  is  the  Dirac  delta  function.  This  yields 


w(x,z)  =  y  ikuQh6^k  -kQ^  e* 


ikx  _  —  1  k |  z  j,_  51„  _lkoX  _“iko'z 


e  '  1  dk  =  ik  hu  e  e 
o  o 


(A.  73) 


Since  Tfl^.k  =  0)  =  -ik/|k| ,  it  follows  that 


(A.  74) 


Within  the  confines  of  the  first  approximation  the  inequality  of  Eq.  (A.  69)  reduces 
to 

(2)1/2(  Ikjh)  «  1  ,  (A.  75) 

which  basically  shows  that  the  slope  of  the  terrain  must  be  less  than  unity.  The 
second  approximation  to  C(k)  is  given  by 


c<2)(k')  =  iu0(kh)6(k'-k0)  *  (T)  A(k,x)riuo(k0h)6(k-ko) 

k  x 


i  (k  -  k' )  ,.  , 
e  '  7  dk  dx  , 

(A.  76) 


243 


where 


A(k,x)  = 


T<k>(S)-  1  ^(|k|f>1 

n=  1 


Inserting  Eq.  (A.  77)  into  Eq.  (A.  76)  and  performing  the  integration  over  k  and 

(2) 

x  gives  the  following  expression  for  Cv  '(k'): 


C<2V>  =  i%(k0h)  6(k'  -  ko)  ♦  iUQ(koh)2  6(  k-  -  2ko)  sgn 


CO 

-iuo(koh)  I  ^  (lko|h)n  6  [k'  -(n+  1>ko 

-t  — 


where 


iu  ,'  k  h  \  “  sgn  ,  k  \  ■  /  jk  i  h  \ n 

o\  o  )  \  o )  _  n!  \  o  j 


I  h  \  6  k'  -  (n  +  2)  k 


(A.  78) 


sgn  k  ^  j  k  i  /k 
*  \  o )  o  o 


(2) 

It  is  easy  to  show  that  the  vertical  component  of  velocity  corresponding  to  C  (k' ) 


is  given  by 


w(x,z)  =  iuo(kQhJ  exp  fik^x  -  |kjzy|2-exp  j  -|kjh  exp  fikjc  -  |kjz 


o  o 


sgn  (ko)  iu0(k0h)  exP  2(ikox_ik0Iz  exp  ~lk0lh  exp  (ikoX"i  ko^Z] 


(A.  79, 

Examination  of  the  second  term  in  Eq.  (A.  79)  shows  that  the  uncertainties 
introduced  in  the  computation  of  w(x,  z)  by  neglecting  higher  order  terms  are  of  the 
order  of  (k0h)2  for  a  one-dimensional  periodic  structure.  The  degree  of 
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accuracy  to  which  one  may  choose  to  compute  the  velocity  field  for  fallout  compu¬ 
tations  should  be  consistent  with  the  uncertainties  introduced  in  other  aspects  of 
the  calculation. 

Application  of  the  Theory  to  Specific  Geometries 

In  this  section  we  shall  apply  the  theory  to  an  infinite  mountain  ridge  which 
makes  an  arbitrary  angle  with  respect  to  the  unperturbed  flow,  and  to  a  mountain. 
Within  the  context  of  the  theory  a  valley  may  be  considered  as  an  inverted  mountain 
or  mountain  ridge.  We  have  chosen  these  particular  models  because  the  terrain 
can  be  mathematically  interpreted  as  a  superposition  of  mountains  and  mountain 
ridges,  and  hence  the  general  solution  of  airflow  over  variable  terrain  can  be  deter 
mined  by  superimposing  the  solutions  for  individual  mountains,  valleys,  and  ridges 

Mountain  Ridge  Not  Perpendicular  to  Unperturbed  Flow 

In  this  case,  the  perpendicular  to  the  line  depicting  the  crest  of  the  mountain 
makes  an  angle  y  with  respect  to  the  direction  of  flow,  as  shown  in  Figure  A.  1. 


( 

\ 


I 

Figure  A.l.  Mountain  Ridge  Not  Perpendicular  to  Flow 
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A  suitable  mathematical  representation  of  a  mountain  ridge  when  viewed  along 

A  2 

the  y1  axis  has  been  deduced  by  Queney  '  who  showed  that  the  topography  could 
be  represented  by  the  equation 

z  =  f'(x',y)  =  - - - r  ,  (A.  80) 

1  +  ( x'/a ) 

which  as  observed  is  independent  of  y  .  However,  the  transformation  equations 


x  =  x'  cos  y  -  y  sin  y ,  y  =  x'  sin  y  +  y  cos  y  (A.  81) 

show  that  the  topographical  description  in  the  x,  y  system,  namely 

f(x,y)  =  f'[x'(x,y),  y'fx.y)]  ,  (A.  82) 

will  be  a  function  of  both  x  and  y.  The  Fourier  transform  of  the  mountain  ridge 
function  in  our  system  is 


F(<Vky)  -  (^)2  IT  f(x'y) 


-ik  x  -  ik 


dx  dy 


(A.  83) 


However,  since  k-  r  is  invariant  under  an  orthogonal  transformation,  we  have 


2  np  -ik'  x'  -ik'y- 

j  J  f  (x  ,y')  e  x  r  dx'  dy  , 

(A.  84) 


where 


kx  »  k'x  cos  y  -  k'  sin  y, 


(A.  85) 


When  Eq.  (A.  80)  is  inserted  in  Eq.  (A.  84)  we  obtain 


revk»)-(! 


ahN  "|k-|a 


(k'y) 


(A.  86) 
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Since  u,  v,  and  w  depend  only  on  x' ,  the  origin  of  the  system  can  conveniently  be 
located  anywhere  along  the  Crestline 
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An  assessment  of  the  range  of  validity  of  the  theory  can  be  rendered  by  examin¬ 
ing  the  ratio,  r,  of  the  magnitude  of  the  perturbed  velocity  to  uq  when  the  flow  is 
perpendicular  to  the  Crestline  (i.e. ,  y  =  0).  In  this  case  we  have 


Av  I  /u 


°) 


(5 


-2 


—2  \ 
w 


1/2 


/uo  ' 


r  =  ah/ 


+  (z  +  a) 


2 


(A.  92) 


where  the  altitude  z  is  defined  in  the  range  z  >  f(x)  =  h/(l  +  (x/a)^).  For  a  pre¬ 
assigned  value  of  the  half  width,  a,  the  requirement  that  r  be  much  less  than  unity 
over  all  space  establishes  an  upper  bound  to  h  which  will  render  the  results  con¬ 
sistent  with  the  perturbation  theory.  A  good  measure  of  this  upper  limit  can  be 
obtained  by  evaluating  r  at  the  top  of  the  ridge  (x  -..0,  z  =  h).  Thus  we  have 


ah/(h  +  ay  -  (h/a)/ 


1  f  (h/a)" 


(A  ,  93) 


Examination  of  the  foregoing  expression  shows  that  rt  is  less  than  unity  regardless 
of  the  ratio  (h/a).  Thus  one  would  conclude  that  the  first-order  perturbation  theory 
would  work  under  all  cases,  even  including  an  infinitely  steep  mountain  ridge.  This 
obviously  cannot  be  the  case.  Apparently,  higher  order  corrections  as  computed 
by  the  iteration  scheme  are  necessary  to  establish  by  analytical  techniques  the  range 
of  validity  of  the  calculation.  As  we  shall  show  in  the  next  section,  however,  the 
limitations  of  the  first-order  theory  can  also  be  assessed  by  graphical  means;  that 
is,  by  examination  of  the  computed  wind  streamlines. 

It  is  interesting  to  note  in  passing  that  when  the  theory  is  applied  to  a  valley, 
in  which  case  h  is  replaced  by  —  |  h j  and  the  ratio,  r,  is  computed  at  the  bottom  of 
the  valley  (x  =  0,  z  =  -|  hj ),  we  obtain 


rb  =  a | h | /(a  -  |h|)2  , 


(A.  94) 


which  clearly  shows  that  the  theory  is  valid  only  for  a  small  slope,  jh;  <  a. 
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A  Single  Mountain 

Investigations  have  shown  that  a  suitable  representation  for  a  mountain  is 


z  =  f(x,  y)  = 


h(a3) 


2  2 
a  +  r 


3/2 


)'  U2+r*) 


3/2  ’ 


(A.  95) 


2  2  2 

where  h  is  the  maximum  elevation  of  the  mountain,  r  =  x  +  y  ,  and  a  is  its  char¬ 
acteristic  dropoff  rate  (when  r  =  a,  f  =  0.35  h). 

Although  one  can  construct  several  mountain  functions  which  are  similar  to 
f(x,y),  this  particular  function  was  selected  because  it  ultimately  yields  analytic 
expressions  for  the  perturbed  components  of  the  wind  field.  The  Fourier  transform 
of  f(x,  y)  is 


Ffk  , k 
x’  y 


(2tt  y 


-f  OO  _f-  OO 

J  f 

-OO  -OO 


-ik  •  r 
e  ~  ~ 


3/2 


dx  dy 


F(kx,k  \  =  F(k) 


I 


.1/2 


(27r)k1//2  J  (  2  2\3/2  o 

'  o  [a.  +  r 


J  (kr)(kr)1/2dr  ,  (A. 96) 


where 


1/2 


k  =  (  k2  +  k2") 
x  yj 


The  integral  in  Eq.  (A.  96)  is  recognized  (Ref.  A.  3)  as  the  Hankel  transform  of 
rl/2(r2  +  a2^  3/2,  gQ  F(k)  becomes 


.  A  -ak 
F(k>  *  e 


(A.  97) 
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If  is  the  unperturbed  velocity,  it  follows  that  the  first-order  correction  to  the 
vertical  component  of  the  wind  is  given  by 


w 


CC  i(kxx  +  kvy)  -kz 

(x,  y,  z)  =  uq  J  ^  ^ikxJ  F(k)  e  '  y  '  e  dk. 


dk  , 
x  y 


w(x,  y,  z)  = 


—  f  e“(a+z)kJ  (kr)kdk  , 
a  8x  J  o' 

o 


-3XAu 


-3Xa  hxu 


w(x,  y,  z)  = 


a  2  2  2\^/2  /  2 

x2  +  y2+X2)  U  +  X2) 


(A.  98) 


where 


X  =  (z  +  a) 


The  changes  in  the  x  and  y  components  of  velocity  are  determined  from  Eqs. 
(A.  50)  and  (A.  51).  Thus,  we  have: 


>  (lkx)(lkyJ  i(kxx+kyy)  -kz 


u(x,  y,  z)  =  -uo  IT 


F(k)  e 


e  dk  dk 

x  y 


2tt  00 

x  9  f  f  i  \  ikr  cos  <p  -kz  ,,  , 

u(x,  y,  z)  =  -u  — x  \  \  F(k)  e  e  dk  d0  , 

°  9x^  J  J 
o  o 


/  2,  \  iy2+^2-2x2) 
u(x,  y,  z)  =  uQ^a  h 


(r2*X2) 


5/2  ’ 


(A.  99) 
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and 


cc  (iky)(ikx)  i(kxx+kvy)  -kz 
v(x  y,  z)  -  -uq  \  \  - ^ -  F(k)  e  k  ^  '  e  dk_.  dk. 


x  y 


27T  00 


v(x,y,z)  =  -u 


8 

o  dx  dy 


C  f  F(k)  e*kr  cos  ^  e~kz  dk  d<f> 


o  o 


v(x,  y,  z)  - 


3uqv  a  h Jxy 

/'2  ,^5/2 

\r  +  X 


(A.  100) 


Wind  Streamlines  and  Fallout  Particle  Streamlines  in  Two  Dimensions 

It  is  of  interest  to  obtain  analytic  expressions  and  pictorial  representations  for 

the  trajectories  of  fallout  particles  for  the  purpose  of  assessing  the  importance  of 

the  terrain  effects.  If  u  and  w  denote  the  horizontal  and  vertical  components  of 

P  P 

the  fallout  particle  velocity  in  a  two-dimensional  system,  it  is  well  known  that  these 
quantities  are  related  to  the  wind  velocity  through  the  equations 

u  -  u  +  u  ,  (A.  101) 

p  o 

and 

wp  -  -Vp  +  w  ,  (A.  102) 

where  is  the  so-called  fall  velocity.  Strictly  speaking  V  is  a  function  both  of 

r  r 

particle  size  and  of  altitude  (Ref  A, 4),  but  below  10,  000  ft  its  variation  with  z  can 
be  neglected  Figure  A.  2  shows  the  average  fall  velocity,  between  0  and  10,  000  ft, 
plotted  as  a  function  of  particle  size  for  spherical  particles  with  an  assumed  density 
of  2.  o  g  cm 

The  flow  lines,  or  trajectories,  of  faiiout  particles  can  be  determined  from  a 

A  5 

quantity  called  the  stream  function,  ''  $(x,z),  defined  by  the  partial  differential 
equations 

-  9$ 

w  -V„  1  w  —  —  (x,z)  ,  (A.  103) 

p  r  9x 
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PARTICLE  RA01US  (microns) 


Figure  A.  2.  Fall  Velocity  vs  Particle  Size 


u  =  u  +  u  =  r—  (x,  z)  . 
p  o  dz 


On  the  other  hand,  the  equation  for  the  flow  lines  is 


dx  dz  ,  ,  ,  n 

—  =  —  or  -w  dx  +  u  dz  =  0  , 

u  w  p  p 

P  P 


which  when  used  with  Eqs.  (A.  103)  and  (A.  104)  gives 


We  thus  see  that  the  curves  for  which 


$  =  constant  (A.  107) 

are  the  streamlines.  In  the  case  of  a  mountain  ridge  perpendicular  to  the  unper¬ 
turbed  flow  it  is  easy  to  show  that  u  and  w  are  given  by 


and 


8* 

u  =  9z  ’ 


(A.  108) 


(A.  109) 


where  the  perturbed  wind  stream  function  'I'fx,  z)  is 


-u  (ah)(z  +  a) 

vp  =  — 5 - 

..2  2 
(z  +  a)  +  x 


(A.  110) 


Using  Eqs.  (A.  108)  and  (A.  109),  and  recalling  that  uq  and  Vp  are  both  independent 
of  position,  enables  us  to  construct  the  entire  stream  function,  $(x,  z).  The  func¬ 
tion  ^(x,  z),  which  has  as  its  partial  derivates  Wp  and  Up,  is 

$  =  u  z  +  V  +  V_,x  .  (A.  Ill) 

o  F 

For  computational  purposes  it  is  desirable  to  cast  Eq.  (A.  Ill)  in  dimensionless 
form  by  dividing  both  sides  by  (uQa).  The  streamlines  are  then  given  by  the  equation 


where 

a 

r 

x 

z 


constant  =  C=z  +  rx-o; - ,  (A.  112) 

(1  +  z)  +  x 

h/a  =  ratio  of  height  to  half  width  of 'mountain  ridge, 

V  /u  =  ratio  of  the  magnitude  of  fall  velocity  to  the  unperturbed 
r  O 

wind  velocity,  uq, 

(x/a)  =  horizontal  dimension  in  units  of  a, 

(z/a)  =  vertical  position  in  units  of  a. 
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In  the  absence  of  a  mountain  ridge,  a  =  0  and  Eq.  (A.  112)  reduces  to 


z  =  C  -  rx  ,  (A.  113) 

which  is  the  equation  of  the  straight-line  descent  of  a  fallout  particle  with  slope 
-Vp/u  .  On  the  other  hand,  the  streamlines  deduced  from  Eq.  (A.  112)  when  r  =  0 
depict  the  flow  of  the  wind  field  over  the  mountain  ridge.  The  solid  lines  in  Fig¬ 
ures  A. 3,  A. 4,  and  A. 5  show  the  wind  streamlines  at  various  initial  altitudes  for 
values  of  a  =  0.  25,  0.50,  and  0.  75.  The  dashed  line  on  each  figure  is  the  moun¬ 
tain  ridge  function 

/z\  =  /h\  1  =  a 

W  W  1  +  (x/a)2  1  +  (x/a)2 


Figure  A. 3.  Wind 
Streamlines  for  « 
=  0.25  (Note  ver¬ 
tical  scale  is  am¬ 
plified  10  times.) 


HORIZONTAL  POSITION  (x/a) 
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Figure  A. 4.  Wind 
Streamlines  for  a 
=  0.50  (Note  ver¬ 
tical  scale  is  am¬ 
plified  10  times.) 
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WIND  STREAMLINES  (CALCULATED 
IN  FIRST  APPROXIMATION  TO 
WIND  FIELD) 


Figure  A.  5.  Wind 
Streamlines  for  a 
=  0.75  (Note  ver¬ 
tical  scale  is  am¬ 
plified  10  times.) 
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We  can  readily  observe  in  all  cases  that  the  higher  altitude  streamlines  are  less 
affected  by  the  mountains  than  the  lower  ones.  This  is  to  be  expected.  It  is  also 
interesting  to  note  that  the  wind  flow  corresponding  to  the  surface  streamline  actu¬ 
ally  hits  the  mountain  ridge  in  all  cases.  This  is  not  unexpected  in  view  of  the 
approximate  nature  of  the  first-order  calculation  of  the  Fourier  transform  of  the 
vertical  component,  C(k),  of  the  wind.  It  will  be  recalled  that  the  perturbed  bound¬ 
ary  conditions  were  applied  exactly  (in  which  we  required  that  the  wind  velocity  be 
parallel  to  the  earth's  surface).  However,  in  the  process  of  determining  the  wind 
field,  an  iteration  scheme  was  developed  to  compute  C(k),  and  the  results  shown 
in  this  section  correspond  to  the  first  approximation 


C(1)(k)  = 


u  (ah) 
o 


(ik)  e 


-Ik  a 


The  uncertainties  in  the  calculation  (as  noted  earlier)  should  increase  in  proportion 
to  the  slope,  which  in  the  case  of  a  mountain  ridge  is  typified  by  the  ratio  (h/a). 
This  is  especially  well  borne  out  by  the  results  which  show  that  the  relative  differ¬ 
ence,  A,  between  the  height  of  the  mountain  ridge  and  the  maximum  elevation  in¬ 
creases  with  a  corresponding  increase  in  (h/a).  We  define  A  by  the  equation 

(h/a)  -  Z  a  -Z 

A  =  - (h/aJ0iP  x  100  =  - 100  >  (A.  114) 

where  ZQm  is  the  maximum  elevation  of  the  surface  trajectory  in  units  of  a.  Fig¬ 
ure  A.  6(a)  shows  a  plot  of  A  vs  (h/a)  =  a.  As  observed,  the  relative  difference  of 
trajectories  increases  as  (h/a)  the  average  slope  of  the  mountain  ridge  increases, 
thereby  reflecting  the  uncertainties  in  the  calculation  attributable  to  the  first-order 
approximation. 

The  results  also  show  that  the  first  approximation  to  the  wind  field  underesti¬ 
mates  the  airlift  due  to  the  mountain  ridge.  This  is  perhaps  better  illustrated  by  a 
comparison  of  ZQm  vs  ci  (see  Figure  A.  6(b)),  which  like  Figure  A.  6(a)  shows  that 
the  discrepancies  between  the  actual  maximum  "lift"  and  the  ideal  lift  increase 
with  o'.  (Mathematically,  this  discrepancy  is  the  difference  between  the  45°  ideal 
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lift  line  and  the  actual  curve  of  ZQm  vs  a.)  Figure  A.  6(b)  illustrates  the  necessity 
of  executing  the  iteration  scheme  for  C(k)  in  order  to  ensure  the  proper  evaluation 
of  the  wind  field.  Since  this  may  be  a  complicated  process,  however,  we  can  use 
the  results  of  Figure  A.  6(b)  to  establish  an  empirical  relationship  between  calcu¬ 
lated  trajectories  and  the  true  mountain  profile.  Thus,  suppose  we  have  a  mountain 
ridge  whose  maximum  elevation,  also  measured  in  units  of  its  half  width,  is  0.48 
(point  A  in  Figure  A.  6(b)).  The  curve  shows  that  to  ensure  that  the  calculated  sur¬ 
face  trajectory  would  actually  rise  to  a  maximum  elevation  of  0.48,  it  is  necessary 
to  perform  the  calculations  for  an  a  equal  to  0.  7  (point  B  in  Figure  A.  6(b)). 

The  curves  of  the  fallout  particle  trajectories  shown  in  Figures  A.  7,  A.  8,  and 
A.  9  depict  a  mountain  ridge  corresponding  to  the  maximum  elevation  ZQm,  although 
as  in  the  case  for  the  wind  streamlines,  the  calculations  were  performed  for  the 
corresponding  values  of  a .  Since  it  is  beyond  the  scope  of  this  report  to  perform 
a  parametric  analysis  of  the  stream  function,  we  present  the  results  for  a  fall-to- 
wind  velocity  ratio,  VF/uQ,  equal  to  0.1;  the  curves  differ  only  in  the  choice  of  a. 


HORIZONTAL  AXIS  (x) 


Figure  A.  7.  Fallout  Particle  Trajectories  (Note  vertical 
scale  is  amplified  10  times;  dimensions  are  in  units  of  a, 
the  half  width  of  the  mountain  range. ) 
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HORIZONTAL  AXIS  (x) 


Figure  A.  8.  Fallout  Particle  Trajectories  (Note  vertical  scale  is 
amplified  5  times;  dimensions  are  in  units  of  a,  the  half  width  of 

the  mountain  range. ) 
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HORIZONTAL  AXIS  (x) 

Figure  A. 9.  Fallout  Particle  Trajectories  (Note  vertical 
scale  amplified  5  times;  dimensions  are  in  units  of  a,  the 
half  width  of  the  mountain  range.) 
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or  equivalently,  ZQm-  All  the  curves  originate  at  the  dimensionless  horizontal 
displacement,  (x/a'  =  -5,  sufficiently  removed  from  the  center  of  the  mountain 
ridge  so  that  terrain  effects  would  not  be  felt.  Examination  of  all  three  curves  for 
the  same  initial  vertical  position  of  the  streamlines  shows  that  increases  in  the 
mountain  ridge  height  lead  to  an  enhanced  downstream  drift  of  the  fallout  particles. 
For  those  streamlines,  whose  unperturbed  trajectories  pass  over  the  crest  of  the 
mountain  ridge  (e.g. ,  the  middle  unperturbed  trajectory  of  Figure  A . 9} ,  the  moun¬ 
tain  ridge  causes  no  permanent  displacement  of  the  streamlines.  We  have  also  con¬ 
structed  a  digital  program  to  compute  the  transport  times  for  fallout  particles  tra¬ 
versing  a  two-dimensional  mountain  ridge  for  arbitrary  y  and  a  and  have  applied 
the  code  for  the  cases  y  -  0.1;  a  =  0.25,  0.50,  and  0,75  (between  the  limits 
-5  <  x  <  5).  The  results  show  no  additional  time  delay  due  to  the  effect  of  the  moun¬ 
tain  ridge.  On  the  contrary,  we  found  a  relative  speedup  of  between  1  to  2%.  Ap¬ 
parently,  the  increase  in  path  length  is  slightly  more  than  counterbalanced  by  the 
increase  in  velocity. 

The  fact  that  the  perturbed  trajectories  which  fail  to  intercept  the  mountain 
ridge  always  end  up  on  the  same  unperturbed  streamline  is  a  general  result,  as  can 
be  seen  by  examination  of  the  stream  function, 


C  =  z  +  rx  - 


a(l  +  z) 

(1  +  z)2  +  x2 


The  function  in  brackets  is  the  contribution  to  the  stream  function  attributable  to 
the  mountain  ridge,  for  either  large  negative  or  positive  values  of  x  this  goes  to  zero. 

The  middle  set  of  curves  in  Figure  A.  9  can  be  used  to  obtain  some  estimate  of 
the  enhanced  fallout  range  caused  by  the  mountain  ridge  for  (Vp  /uQ)  -0.1  with 
(ZQm/a)  =  0,5.  From  Figure  A,  2  we  see  that  this  would  correspond  to  a  100-p  par¬ 
ticle  with  uq  =  30  mph,  150-jx  particle  with  uq  =  50  mph,  or  a  230-p  particle  with 
uq  =  70  mph,  all  of  which  are  quite  possible  situations.  If  the  actual  mountain  ridge 
peak  were  1  mi,  the  intercept  of  the  alluded-to  trajectory  would  hit  the  horizontal 
axis  at  x  =  5  or  x  =  10  mi. 
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For  heavy  fallout  particles,  terrain  effects  are  less  important  since  the  ver¬ 
tical  lift  decreases.  At  the  other  extreme,  extremely  light  fallout  particles  will 
follow  the  wind  streamlines. 

Conditions  for  Neglecting  the  Coriolis  Effect 

We  shall  now  examine  the  coefficients  in  the  dispersion  relationship  —  namely 
a,  b,  and  c  (see  Eqs.  (A. 35)  and  (A.  36))  —  to  determine  the  conditions  on  the  veloc¬ 
ity  and  wavelength  for  which  the  Coriolis  effect  can  be  neglected.  Since  we  are 
primarily  interested  in  short  range  effects,  we  shall  freely  make  use  of  the  assumed 
inequality 


»  /5 


0.75  x  10 


-1 

cm 


(A.  115) 


which  signifies  that  the  wavelength  of  the  horizontal  variations  in  the  terrain  is  less 
than  the  2irp  \  or  approximately  50  mi. 

The  Coriolis  effect  can  be  neglected  in  Eq.  (A.  36a)  if 

|kJuo  »  0  ,  (A.  116) 


or  equivalently 

|u  I 

<2tt)  -  »  Lx  ,  (A.  117) 

where  Lx  is  a  representative  wavelength  in  the  x  direction.  The  distance  (uQ/ft) 
equals 


u 

-jjf  =  d  =  ^3.8  um^  mi  ,  (A.  118) 

where  u  is  the  wind  velocity  expressed  in  miles  per  hour.  This  restricts  L  to 
less  than  24  um  mi.  We  have  assumed  the  inequality  of  Eq.  (A.  117)  to  hold  in  our 
analysis.  Equation  (A.  117)  will  not  be  satisfied  when  the  unperturbed  velocity  is 
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too  large  or  when  both  a  small  uq  and  large  Lx  are  combined.  However,  these  con¬ 
ditions  are  not  important  relevant  to  fallout  considerations.  If  Lx  is  large,  the  dis¬ 
turbance  cannot  be  considered  as  a  local  effect;  hence,  additional  meteorological 
information  will  be  available,  thus  precluding  the  utility  of  the  perturbation  methods 
considered  here.  On  the  other  hand  if  uq  is  small,  the  perturbed  wind  velocity  will 
also  be  small  (as  is  shown  in  the  analysis)  and  terrain  effects  will  not  be  important 
since  the  motion  of  the  fallout  particle  will  be  essentially  vertical. 

Examination  of  Eqs.  (A. 36b)  and  (A. 36c)  shows  that  the  second  and  third  co¬ 
efficients  in  the  dispersion  relationship,  b  and  c,  are  already  expanded  in  powers 
of  Q  and  thus  are  in  a  suitable  form  for  examining  the  conditions  under  which  the 

Coriolis  effect  may  be  neglected.  (Neglecting  the  Coriolis  effect  is  equivalent  to 

2 

omitting  those  terms  which  are  proportional  to  £1  and  II  . )  The  ratio  of  the  first- 
to-second  terms  in  Eq.  (A.  36b)  is 


2  2 
^kxu0 


2S2IV|ky|uo“x 


y|3L  u 
y  o 


4ftL  cos  ©  sin  e 

X 


(A.  119) 


where  Ly  and  Lx  are  characteristic  wavelengths  for  the  y  and  x  dimensions  respec¬ 
tively.  Neglecting  minor  numerical  factors,  the  condition  that  the  foregoing  rela¬ 
tionship  be  greater  than  unity  is  approximately  given  by 


0.5 


u 


m 


>  1  . 


(A.  120) 


For  physically  interesting  wind  velocities  (e.g. ,  um  >  10  mph)  the  inequality  of  Eq 
(A.  120)  will  break  down  only  in  unusual  cases.  Although  such  occurrences  can  be 
treated  by  the  general  theory  we  also  assume  the  inequality  of  Eq.  (A.  120). 

Using  Eq.  (A.  115)  together  with  the  assumption  kx  >  k^  gives  for  the  ratio  of 
the  first-to-third  terms  in  the  expression  for  b  (again  neglecting  minor  numerical 
factors) 


.  2  2  /n2\ 
ku  /fi 

X  O  J 


-P—  =  r. 


(A.  121) 
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Using  Eq.  (A.  118)  we  find  that  the  requirement  that  the  foregoing  expression  is 
much  greater  than  unity  is  given  by 

27r(1.8)u2  »  L  (miles)  . 

'  '  m  x  ' 

2 

The  cases  for  which  Lx  >  2w  (1. 8)  um  are  not  relevant  to  local  fallout, 
use  Eq.  (A.  115)  but  assume  >  kx,  we  have  in  lieu  of  Eq.  (A.  119) 

,  2  2 

k  U  R  r  -i 

-2—  =  ri(L  /L  \  =  4tt(1.8)  u  (  0,5  L  /L  \u  .  (A.  123) 

j22  |k  i  H  y  x)  L  l  y  x)  m 

1  y 

Since  (0.  5  L  u  /L  )  is  assumed  greater  than  unity,  the  foregoing  expression  will 
y  tu  x 

also  be  greater  than  unity. 

9  2-2  2 

Recalling  that  cr  =  (a/j3)  =  1.2x10  cm  sec  »  uq  ,  and  neglecting  minor 
numerical  factors,  gives  the  following  approximate  expression  for  c: 

c  «  k\2cj(k2  +  k2')  +  S2/3ou  k2  +  fi2ok2  .  (A.  124) 

xo^xyy  ox  x 

2 

By  using  the  previously  mentioned  inequalities  it  is  easy  to  show  that  £2  and  O  can 
be  neglected  in  the  expression  for  c. 

Conclusions 

A  perturbation  type  model  has  been  developed  to  compute  the  airflow  over  vari¬ 
able  terrain.  The  theory  is  based  on  the  assumption  of  the  existence  of  an  unper¬ 
turbed  state  characterized  by  an  adiabatic  atmosphere  and  a  uniform  velocity,  uq, 
which  would  otherwise  exist  in  the  absence  of  ground  variations.  When  the  general 
theory  is  addressed  to  small  scale  disturbances,  which  are  of  interest  in  local  fall¬ 
out  applications,  there  are  no  lee  waves  and  we  can  neglect  the  Coriolis  force.  In 
this  regime  the  theory  has  been  applied  to  compute  the  wind  field  over  a  mountain 
(valley)  and  a  mountain  (valley)  ridge.  Using  the  calculated  wind  streamline  for  a 


(A.  122) 

If  we  now 
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mountain  ridge  it  becomes  possible  to  assess  the  importance  of  variable  terrain  on 

the  motion  of  particles  typical  of  those  encountered  in  the  nuclear  fallout  regime. 
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APPENDIX  B 


THE  INCORPORATION  OF  THE  SEA  BREEZE 
IN  THE  CALCULATION  OF  FALLOUT 

Introduction 

The  effects  of  the  sea  breeze  will  be  considered  in  our  calculations  of  fallout. 

It  is  appreciated  that  this  local  circulation  phenomenon  can  have  an  important 
effect  on  the  lighter  fallout  particles,  particularly  on  a  clear  day,  when  the  tem¬ 
perature-induced  circulating  winds  are  larger  than  the  so-called  fall  velocity,  V^,. 

The  sea  breeze  is  characterized  by  relatively  large  changes  in  the  wind  direc¬ 
tion  over  short  distances,  and,  as  such,  its  internal  features  cannot  be  satisfac¬ 
torily  analyzed  with  existing  installations  because  of  the  unavailability  of  sufficiently 
dense  meteorological  observation  points  in  the  vicinity  of  the  coastline.  We  have 
developed,  therefore,  a  suitable  sea  breeze  model  which  can  be  applied  in  a  digital 
computer  program  leading  to  the  determination  of  fallout  distribution.  As  in  the 
overall  DOD  fallout  model,  space  is  divided  into  cells,  with  each  compartment 
characterized  by  a  distinct  wind  field.  In  the  general  case,  the  wind  parameters 
for  these  cells  are  deduced  (by  suitable  mathematical  techniques)  from  sounding 
stations  which  are  in  close  proximity  to  the  geometric  center  of  the  cell.  The  con¬ 
struction  of  the  cell's  wind  field  by  this  method  is  appropriate  throughout  most  of 
space  where  changes  in  the  wind  velocity  occur  over  dimensions  which  are  large 
compared  to  the  distance  between  observation  points.  The  sea  breeze  and  other 
local  circulation  systems  such  as  mountain  and  valley  winds,  however,  cannot  be 
treated  by  this  method.  Consequently,  the  geometric  region  enclosing  the  sea 
breeze  is  divided  into  a  special  cell  which  is  treated  separately.  The  nature  of 
the  problem  dictates  that  analytic  mathematical  functions  be  used  to  generate  the 
wind  field  in  this  cell.  These  functions,  moreover,  should  be  applicable  for  most 
situations. 

Review  of  the  Sea-Breeze  Theories 

The  sea  breeze  is  perhaps  one  of  the  best  examples  of  an  atmospheric  process 

B  1 

which  can  be  treated  analytically  with  a  degree  of  success.  Jeffreys  was  the 
first  to  treat  the  problem  in  an  exact  way,  although  his  results  were  not  in  full 
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agreement  with  observations  As  pointed  out  by  Schmidt,  '  the  former'  s  model 

led  to  a  solution  in  which  the  daily  wind  variation  was  in  phase  with  the  daily 

temperature  curve.  This  was  not  always  consistent  with  the  measured  results 

In  the  Jeffreys  model,  the  only  forces  that  are  taken  into  account  are  the  two  due  to 

friction  and  to  the  pressure  gradient  resulting  from  the  unequal  heating.  Haurwitz 

classifies  such  a  model  as  an  equilibrium  theory  of  the  sea  breeze  —  a  theory  which 

neglects  the  inertia  of  the  wind  and,  consequently,  the  temporal  changes  of  the  wind 

-5 

that  are  of  the  order  of  Q  =  2n/ (sidereal  day)  -  7.3  x  10  sec.  In  retrospect,  the 
main  flaw  in  Jeffreys  treatment  was  not  so  much  his  neglect  of  the  inertia  of  the 
wind  (as  will  be  shown  later,  this  can  be  justified  in  some  cases)  but  rather  his 
deletion  of  the  Coriolis  terms  which  account  for  the  veering  of  the  wind  in  the 
course  of  time.  This  effect  was  included  in  the  subsequent  papers. 

The  works  of  both  Schmidt  and  Haurwitz  were  less  concerned  with  rendering 

complete  theory  of  the  sea  breeze  than  with  clarifying  the  characteristic  phenomena 

of  the  land  and  sea  breezes,  such  as  the  phase  shift  between  wind  and  temperature 

or  the  influence  of  the  earth's  rotation.  These  investigations  did  much  to  improve 

our  understanding  of  the  sea  breeze,  but  they  cannot  be  considered  as  complete  in 

B  4 

the  usual  sense.  (A  more  thorough  critique  of  their  work  is  given  by  Defant, 
who  also  discusses  research  performed  by  other  investigators.) 

In  analytical  treatments  of  the  sea  breeze,  it  is  necessary  to  make  simplifying 
assumptions  in  order  to  obtain  mathematically  tractable  equations.  We  can  cate¬ 
gorically  say  that  all  the  analytical  treatments  are  based  upon  linearization  of  the 
equations  of  motion  which  describe  the  sea-breeze  circulation.  The  more  complete 
analytical  treatments  of  the  sea  breeze  have  been  successful  in  accounting  for  the 

large  scale  characteristics  of  the  sea-breeze  circulation.  Notable  among  this 

B  4  B  5  B  6 

group  are  the  investigations  of  Defant  '  ’  '  and  Haurwitz,  '  which  form  the 

basis  of  the  sea-breeze  model  used  in  our  fallout  computation.  (A  discussion  of 
their  work  is  given  in  the  following  section  of  this  appendix. )  Generally,  the 
terms  in  the  dynamical  equations  which  deal  with  the  horizontal  advection  of 
temperature  are  omitted,  although  in  the  Defant-Haurwitz  models,  vertical  advec¬ 
tion  of  temperature  is  retained,  and  the  diffusion  of  heat  upward  by  turbulent 
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processes  is  included.  Despite  the  approximations  resulting  from  linearization, 
the  linear  models  do  yield  a  satisfactory  reproduction  of  the  fundamental  field  of 
motion  of  the  sea  breeze. 

The  development  of  high  speed  numerical  methods  has  made  possible  a 

more  refined  treatment  of  the  sea  breeze  which  can  account  for  not  only  horizontal 

advection  but  also  the  spatial  variation  of  the  viscosity  and  turbulent  diffusion  con- 
B  7 

stants.  Pierce  was  perhaps  the  first  who  succeeded  in  integrating  by  numerical 

methods  a  set  of  nonlinear  sea  breeze  equations.  The  main  drawback  in  Pierce's 

model  was  his  introduction  of  a  somewhat  artificial  mechanism  to  transfer  the  heat 

absorbed  by  the  earth  to  the  atmosphere.  The  physical  consequences  of  this  are 

B  8 

more  fully  discussed  by  Fisher  1  As  pointed  out  by  Fisher,  the  most  important 
feature  of  the  numerical  method  lies  in  the  fact  that  the  nonlinear  advective  terms 
in  the  equations  may  be  retained  and  thus  allow  the  feedback  effect  of  the  wind  field 
itself  on  the  sea  breeze  to  be  studied.  Fisher's  model  is  conceptually  identical  to 
the  linear  model  of  Haurwitz  and  may  be  considered  the  most  definitive  work  in  the 
field  inasmuch  as  it  includes  not  only  nonlinear  horizontal  advection  but  also  the 
spatial  variation  of  the  transport  parameters.  This  solution  shows  the  sea  breeze 
in  the  stages  of  development  and  decay  and  succeeds  in  reproducing  the  gross 
features  of  the  wind  system  and  many  of  its  small  details  as  well. 

The  main  drawback  in  applying  Fisher's  model  to  the  fallout  problem  is  its 
sheer  complexity,  particularly  in  view  of  the  fact  that,  as  pointed  out  by  Fisher 
himself,  its  principal  contribution  is  its  ability  to  describe  the  fine  structure  in  the 
sea-breeze  development.  Although  we  can  justify  the  incorporation  of  the  sea  breeze 
in  fallout  models,  we  are  hard-pressed  to  justify  the  inclusion  of  its  subleties. 

Other  effects  such  as  the  irregularity  of  the  coastline,  the  presence  of  a  prevailing 
wind,  and  uncertainties  in  the  transport  coefficients  would  completely  overshadow 
any  improvement  attributed  to  incorporation  of  the  sea-breeze  fine  structure. 

B  9 

(Recently,  an  attempt  was  made  by  Travelers  Insurance  Research  Laboratory 
to  employ  Fisher's  observed  data  for  calculation  of  fallout  in  a  sea  breeze  In  view 
of  the  extensive  amount  of  "function-fitting"  employed,  it  becomes  difficult  to 
appraise  their  model.) 
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Sea-Breeze  Model 


Wind- Field  Parameters 

In  this  section,  we  shall  present  the  expressions  for  the  components  of  the  wind 

field  that  are  used  in  our  sea  breeze  calculations  and  are  identical  to  those  deduced 
B  5 

by  Defant.  "  The  derivation  of  our  final  results,  however,  closely  resembles 
Haurwitz's  treatment  of  the  sea-breeze  circulation  because  it  shows  more  clearly 
the  assumptions  which  are  made  concerning  the  pressure  variation. 

Defant's  approach  to  the  sea-breeze  problem  is  based  on  Lord  Rayleigh's  con- 
B  10 

vection  theory.  The  dynamics  of  Defant's  model  are  governed  by  the  continuity 

equation,  the  three  equations  of  motion,  the  equation  of  state,  and  the  heat-diffusion 
equation.  By  neglecting  variations  in  density  except  in  so  far  as  they  modify  the 
action  of  gravity,  it  becomes  possible  to  construct  a  stream  function  which  is  used 
to  describe  the  motion  in  the  plane  perpendicular  to  the  coast.  The  mathematical 
equations  are  based  on  the  assumption  of  an  infinitely  long  coastline  which  we  desig¬ 
nate  as  the  y  axis.  Variations  of  the  meteorological  equations  in  this  direction  are 
ignored.  The  x  axis  is  perpendicular  to  the  coast,  and  positive  inland,  while  the 
z  axis  denotes  the  vertical.  The  equations  which  describe  the  system  are: 
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where  u,  v,  and  w  are  the  velocity  components  along  the  x,  y,  and  z  axes,  respec¬ 
tively;  p  denotes  the  pressure;  T  is  the  temperature;  p  is  the  mass  density;  g  is 
the  gravitational  constant;  K  is  the  thermal  diffusion  constant;  and  R  is  the  gas 
constant.  The  quantity  f  =  20  sin  is  the  Coriolis  parameter,  while  the  effect  of 
friction  is  taken  in  account  through  the  Guldberg-Mohn  friction  parameter,  cr.  To 
be  sure,  this  is  the  simplest  way  to  incorporate  the  effect  of  viscosity  into  the 
theory.  (Haurwitz  offers  an  alternative  approach  to  turbulent  dissipation  but,  as 
we  shall  discuss  later,  this  has  its  own  drawbacks. )  With  the  exception  of  Eq.  (B.  1) 
(the  continuity  equation  derived  by  setting  (dp/dt)  =  0,  see  Ref.  B.  8)  all  the  others 
are  nonlinear  in  the  sense  that  there  are  terms  which  involve  multiplication  of  the 
dependent  meteorological  variables  Application  of  the  following  boundary  conditions 
suffices  to  determine  the  problem  in  all  cases : 

w(z  =  0)  =  0  , 

w(z  —  °°)  =  0  (B.  7) 

T(z  =0)  -  Tq+  T(x,  t)  . 

The  function  T(x,  t)  is  the  surface  temperature  differential,  which  is  defined  as  the 
difference  between  the  actual  temperature  above  the  water  or  land,  and  a  suitable 
reference  temperature,  Tq,  which  we  take  to  be  the  temperature  along  the  coastline. 
In  the  theory  of  the  sea  breeze  T(x,  t)  performs  the  role  of  the  "driving-force"  in 
that  it,  alone,  is  responsible  for  the  circulation 

Before  proceeding  with  our  discussion  of  the  solution  of  the  sea-breeze  equa¬ 
tions,  it  is  appropriate  to  review  a  variation  of  the  sea-breeze  model  as  rendered 
B  6 

by  Haurwitz.  *  The  difference  between  Haurwitz ’s  model  and  Defant's  lies  in  the 
method  of  treating  turbulent  friction  Instead  of  using  the  Guldberg-Mohn  friction 
parameter,  cr,  to  describe  turbulent  dissipation,  Hau"witz  employs  kinematic  vis¬ 
cosity.  Thus,  in  lieu  of  the  terms,  -cru  and  -<xv,  which  appear  in  our  Eqs.  (B.  2) 
and  (B,3),  his  corresponding  friction  terms  are  K9  u/9z  and  K9  v/9z  ,  where  the 
kinematic  viscosity  K  is  assumed  to  be  independent  of  position.  Haurwitz  also 
neglects  the  viscous  effects  on  the  vertical  wind  component;  we  do  not.  When 
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2  2  2  2 

viscosity  is  introduced  by  the  expressions  Kb  u  <)z  and  K3  v/9z  ,  which  are  then 
used  with  the  boundary  conditions  u(z  -0}  ~  v(z  -0)  =  0,  we  arrive  at  a  sea-breeze 
model  in  which  a  boundary  layer  (in  the  sense  of  Schlicting  and  Prandtl)  is  built  in¬ 
to  the  theory.  In  such  a  situation,  the  horizontal  components  of  velocity  increase 
with  altitude  from  a  minimum  value  of  zero  at  the  land  and  water  surface.  Accord¬ 
ing  to  Haurwitz's  model,  the  distance  over  which  this  buildup  occurs  is  of  the  order 
of  the  characteristic  height  of  the  sea  breeze  This  seems  to  be  somewhat  incon¬ 
sistent  with  the  everyday  experiences  at  the  ocean  front  where  strong  horizontal 
winds  are  evident  a  few  feet  from  the  ground.  Strictly  speaking,  when  boundary 
layer  theory  is  used,  the  temperature  of  the  moving  fluid  at  the  boundary  is  the 
same  as  the  surface  temperature  Thus,  if  the  theory  of  the  boundary  layer  were 
rigorously  applied  on  a  clear  sunny  day  in  the  summertime,  we  would  necessarily 
have  to  use  a  land  temperature  of  about  90°  -  100°F  and  a  water  temperature  be¬ 
tween  60°  -  70°F.  This  corresponds  to  a  temperature  differential  of  about  20°C, 
which  would  produce  wind  velocities  greater  than  those  measured.  In  addition, 
according  to  the  usual  boundary  layer  theory  this  is  also  the  surface  air  tempera¬ 
ture  differential.  Again,  this  is  inconsistent  with  observations.  Haurwitz's  treat¬ 
ment  of  friction  thus  seems  to  lead  to  inconsistencies,  at  least  in  the  lower  regions 
of  the  sea  breeze.  It  is  also  more  complicated  since  it  introduces  a  much  more 
cumbersome  expression  for  the  vertical  attenuation  constant.  Consequently,  the 
fundamental  equations  which  describe  our  system  are  based  on  the  Defant  sea 
breeze  model. 


Equations  (B.  1)  -  (B.  6)  can  be  simplified  by  introducing  two  new  variables,  the 
stream  function  ip  and  the  vorticity  rj,  which  are  related  to  the  x  and  z  component  of 
the  velocity  by 


u 


<H  b</- 

•  .  w  — 

<)■/.  <)\ 


(B.  8) 


V 


(»U  <AV 
<>/.  <>X 


(B.9) 
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By  operating  on  Eq.  (B.  2)  with  (3/3z)  and  on  Eq.  (B.4)  with  (3/3x),  and  then 
subtracting  the  resulting  second  expression  from  the  resulting  first  expression, 
gives  us  the  following  equation  for  17: 


+  +  wJlV  f9v  =_  jV§£_  _ 

9t  'vu  9x  W  dzjv  1  3z  2  \dz  3x  3x  3z )  v 


(B-  10) 


The  first  term  on  the  right-hand  side  is  what  Haurwitz  calls  the  solenoid  term,  S, 
which  can  be  simplified  by  use  of  the  ideal  gas  law  p  =  pRT. 


J _  Ao.  3£  _  9£L  BpN  _  R_  /'9T3£  _  3T  8g\ 
^2  y3z  3x  3x  3z  J  p  \J)x  3z  3z  3x  J 


(B.  11) 


Since  the  first  part  of  S  is  much  larger  than  the  second  (see  Ref.  B.  6),  we  have 


(B.  12) 


As  is  usual  in  dynamic  meteorology,  we  now  replace  (l/T)  (3T/3x)  in  Eq.  (B.  12) 

rsf  cs*  a* 

by  (1/0)  (30 /3x),  where  0  is  the  so-called  potential  temperature.  In  Eq.  (B.  6)  we 
replace  T  by  0  ;  thus, 


iv  /v  /v  9  IV 

30  30  30  3  0 

3t  U  3x  W  3z  2 

3z 


(B.  13) 


Note  in  Eqs.  (B.  6)  and  (B.  13)  that  only  the  vertical  heat  conduction  has  been  taken 
into  account  since  the  vertical  temperature  gradient  is  generally  much  larger  than 
the  horizontal  gradient. 

At  this  point,  the  system  of  equations  is  linearized.  That  is,  the  meteoro¬ 
logical  variables  are  assumed  to  consist  of  an  unperturbed  part,  that  contribution 
which  exists  in  the  absence  of  the  temperature  differential  T(x,t);  and  a  smaller 
perturbed  part,  attributed  to  the  driving  force.  Since  in  the  system  we  consider, 
all  the  initial  velocities  equal  to  zero,  u,  v,  and  w  are  themselves  the  perturbed 
velocities.  For  the  potential  temperature  we  write 
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(B.  14) 


9  ~  9q(z)  +  0(x.,  z,  t) 

where  9q  and  6  are  the  perturbed  and  unperturbed  parts,  respectively.  We  then 
arrive  at  a  set  of  linearized  equations : 


at  \  wj  ra7.  9  ax  u 


dz 


6  3x 
o 


(B.  15) 


and 


3v  f  a^ 

at  '  1  az 


cr  v 


§0  djj 

at  1  ax 


K 


(B.  16) 


(B.  17) 


where 


Specifically,  the  convection  terms  such  as  u(3u/3x),  u(3w/ax),  and  w(3u/3z) 
have  been  neglected  in  the  derivation  of  Eqs.  (B.  15)  -  (B.  17).  The  justification  for 
this  can  be  examined  by  a  comparison  ol  their  importance  with  the  corresponding 
friction  term.  For  example,  let  us  compare  the  anticipated  numerical  value  of 
the  convection  operator  Du  =  u(3/3x)  +  w  (d/dz)  with  cr,  the  Guldberg-Mohn  param¬ 
eter  in  Eq.  (B.  2).  Roughly  speaking,  Du  can  be  assigned  a  value  approximately 
equal  to: 


D  » 
u 


+ 


w 

L 


(B.  18) 


where  u  and  w  are  suitable  average  values  ol  the  respective  velocity  components, 

and  L  and  L  are  characteristic  dimensions  of  the  horizontal  and  vertical  extent 
x  z 

of  the  sea  breeze.  is  a  given  quantity  in  that  it  is  known  a  priori,  while  is 
determined  from  the  theory.  The  landward  range  of  the  sea  breeze  is  estimated 
by  many  observers  to  lie  between  15  -50  km  in  the  temperate  zones,  while  in  the 
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tropical  regions  it  can  extend  from  50  -  65  km  and  even  as  high  as  124  -  145  km 
B  4 

in  the  interior.  '  Representative  values  for  different  locations  are  included  in 
Table  B,  1.  The  vertical  extent  of  the  sea  breeze,  L?,  varies  with  location,  but  it 


TABLE  B.  1 

TYPICAL  SEA  BREEZE  VALUES 


Range 

(km) 

Location 

16-32 

New  England 

15 

Flemish  Coast 

20-30 

Baltic  Sea 

30-40 

Holland 

40-50 

Sweden 

up  to  50 

Jutland 

40 

Albania 

>50 

Northern  Coast  of  Java 

is  substantially  smaller  than  the  horizontal  dimension.  Its  altitude  varies  from 
150  m  over  medium-sized  lakes  to  200  -  500  m  over  large  lakes  and  the  coastal 
regions  and  rises  to  more  than  1000  m  in  warm  climates.  It  is  also  a  character¬ 
istic  feature  of  the  sea  breeze  that  the  horizontal  velocity  greatly  exceeds  the 
vertical  component.  Under  a  set  of  conditions  which  gave  results  consistent  with 
observation,  Defant  found  an  average  horizontal  velocity  component  of  u  -  2  m  sec 
for  every  centigrade  degree  of  temperature  difference  as  opposed  to  a  correspond¬ 
ing  value  of  w  -  2  cm  sec  ^  °C  V  If  these  results  are  used  in  Eq  (B.  18)  with 
L^  -  20  km,  L^  -  500  m,  and  a  maximum  temperature  differential  of  5°C  is 
assumed,  we  obtain  the  following  value  of 


D 

u 


10 

20  x  103 


(B.  19) 
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0.  1 
500 


7x10^  sec 


-4 

Unfortunately,  this  is  greater  than  a  realistically  high  value  of  cr  =  2,  5  x  10  ,  so 

that  we  cannot  unequivocally  disregard  the  nonlinear  terms  based  upon  the  rough 
estimate  of  D^.  It  is  possible  that  phase  differences  between  the  constituents  of 
the  operator  Du(u,  3/3x,  w,  3/3z)  can  lead  to  cancellations,  thereby  precluding  the 
use  of  a  meaningful  average.  Despite  this  seeming  contradiction,  the  remarkable 
feature  of  Defant's  model  is  that  it  works.  Apparently,  the  nonlinear  terms  do  not 
significantly  alter  the  main  features  of  the  sea  breeze. 

Within  the  altitude  range  for  which  the  sea  breeze  is  important,  the  potential 
temperature  can  be  considered  constant  in  Eq,  (B.  15),  and  its  derivative  at 
equilibrium,  r,  a  constant  in  Eq.  (B.  17),  This  procedure  renders  Eqs.  (B.  15)  - 
(B.  17)  linear  with  constant  coefficients,  and  thus  amenable  to  a  solution  by  separation 
of  variables. 

The  solution  of  Eqs.  (B.  15)  -  (B.  17)  is  achieved  by  first  assuming  that  x  varia¬ 
tion  of  the  variables  is  given  by 


6  =  A(z,  t)  sin  Xx 
>p  =  B(z,  t)  cos  Xx 
v  =  C(z,  t)  cos  Xx 


fu.  =  -  (3^/3z)  =  -  cos  Xx(3B/3z) 


^w  -  dtp/ 3x  =  -  Xsin  XxB 


(B,  20) 
(B  21) 
(B-  22) 


Since  the  surface  temperature  differential  can  in  general  be  represented  by  a 
Fourier  series  in  multiples  of  the  sidereal  day  frequency  12,  it  follows  from  the 
principle  of  linear  superposition  that  A,  B,  and  C  will  be  given  by 


and 


A(z,t)  =  ^  An(z)  einm  , 
n  =  1 

OO 

B(z.t)  -  ^  Bn(z)  emSn  , 
n  -  1 

OO 

C(z,t)-^  Cn(z)emnt  . 
n  1 


(B.  23) 


(B.  24) 


(B,  25) 
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Combining  Eqs.  (B.  20)  -  (B.  25),  inserting  them  into  Eqs.  (B.  15)  -  (B,  17),  and 

equating  equal  powers  of  exp  (in  fit)  gives  the  following  coupled  equations  for  A  , 

B  ,  and  C  : 
n’  n 


(a  +  infi)  (  B"  -  X2B  )  +  f  C  =  a\A  , 

'  \  n  n/  n  n  ’ 

(B.  26) 

and 

(cr  +  infi)  Cn  =  f  B^  , 

(B.  27) 

infi  A  -  XrB  =  KA"  , 
n  n  n 

(B.  28) 

where 

a  =g/0  Q  ■ 


For  computational  purposes  it  is  more  convenient  to  deal  with  functions  W^(z) 
defined  by  the  equation 


W  =  -  XB  , 
n  n 


in  terms  of  which  the  velocity  components  are  given  by 


and 


where 


w(x,  z,  t)  =  sin  Xx  ^  Wn(z)e^n^t  , 
n  =  l 

oo 

u(x,z,t)  =  X  ^os  Xx^T  W^(z)  einfit  , 
n  =  1 


v(x,z,t)  (f/qn)  un<x>z>  €'infit  > 
n  =  1 


q  =  ct  +  infi 
Hn 


(B.  29) 


(B.  30) 


(B.  31) 


(B.  32) 


(B.  33) 
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Eliminating  Eq.  (B.  27)  and  using  (B,  29)  gives 


and 


where 


If  we  now  let 


and 


W"  =  a  W 
n  n  n 


-  b  A 


n  n 


A"  =  c  W  +  d  A 
n  n  n  n  n 


A  (z)  =  A  e 
n'  '  n 


a  z 
n 


^  a  z 

W  (z)  =  W  e  n 
n  '  n 


(B.  34) 


(B.  35) 


(B.  36) 


(B.  37a) 


(B. 37b) 


A  A 

where  A^  and  Wn  are  the  values  at  the  surface,  and  substitute  Eq.  (B.37)  into  Eqs, 
(B.  34)  and  (B.  35),  we  derive  the  following  matrix  equation  which  must  be  satisfied 
in  order  to  obtain  a  nontrivial  solution: 


where 


^  \ 


\ 

\ 


0  , 


(B.  38) 


n 


2 


o: 


n 


(B.  39) 
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The  only  nontrivial  solutions  to  Eq.  (B.  38)  are  those  for  which  the  determinant  van¬ 
ishes.  This  gives  the  two  "allowed"  values  for 


"nl 

Mn2 


fa  +  d 

V  n  n, 

)  + 

fa  +  d 

V  n  n 

)2-4 

(a  d  +  c  b  | 
V  n  n  n  nj 

1/2 

1 

(a  +  d  ) 
V  n  nj 

-  ( 

a  +  d) 
,  n  n  j 

2 

,2-4( 

a  d  +  c  b  ^ 
.  n  n  n  nj 

1/2 

i 

(B.  40) 


The  roots  of  the  dispersion  relationship  correspond  to  four  values  of  a  which  are 
given  by 


.  pl/2  (%l/2)_ 

a  =  ±  E  -  e  '  '  - 

n  nl 


*  Unl  l_cos  (V)  +  1  sln  (^nl) 


and 


1/2  (1Tn2/2) 

“n  =  ±En2  =  ±  "n2 


cos 


(”n2)  +  1  sin  (V) 


where 


^nl  Ynl/2,  \2  yn2/2’  Unl  Enl  ’  Un2  En2 


(B,  41a) 


(B.  41b) 


(B. 41c) 


Of  the  four  possible  roots  for  only  two  are  acceptable  —  one  from  Eq.  (B.  41a) 
and  one  from  Eq.  (B.  41b).  The  criterion  for  selecting  the  roots  is  that  the  real 
parts  of  o?n  must  be  negative  so  as  to  insure  exponential  damping  of  the  sea  breeze. 
We  define  the  two  roots  for  an  by  the  equations 


1/2  -  TT 

01  nl  enl^nl  enl  nl 


cos 


V) +  isin(v) 


=.  k  1  +  i^ 
nl  nl  ’ 


(B.  42a) 


and 


1/2 


an2  en2^n2  €n2  Un2 


cos 


("nl)  +  isin(V) 


kn2  +  lin2  ’ 


(B.  42b) 
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where 


enl  =  +  1  lf  COB(’l0i)<  0  ■ 


£nl  =  -  1  lf  cos  fa)  >  0 


€n2  =  +  1  if  cos  (V)  <  0 


cn2  =  -  1  if  cos  (t)n2)  >  0 


In  terms  of  the  o?n  the  solution  to  the  problem  is  given  by 


a  ■  -v  V  ft  ^nl2  £  Q?n2zN\  inflt 
0  =  sin  Xx  Y  \  Anl  6  +An2e  )e 

n  =  1  v  - 


V  (  *  ^nl2  %  CVn2Z^\  infit 

W  =  SinxZ  VnlAnle  +  rn2An2e  Je 

n  =  1  '  x 


,-l  V  /  .  anlZ  *  an2Z\inS2t 

cosXx  ^  («nlrnlAnle  +  «n2rn2An2e  Je  , 

n  =  1  v  y 


-1 


rv  ,  z 
nl 


v  =  A  cos  Az  /  gn(  %1rnlAnle  +  o^gA^e 


^  an2Z  \  infit 


n2  n2  n2 


n  =  1  ^ 


I 


(B  43) 


(B,  44) 


(B-  45) 


(B.  46) 


(B  47) 
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r 


where 


g 


n 


(B.  48) 


and 


rnl=-bn/(*'nl-an)'rn2  =  -bn/(fn2-an)  •  <B-49) 

Up  to  this  point  the  analysis  has  been  carried  out  in  complex  arithmetic.  The 
actual  physical  meteorological  quantities  are  obtained  by  first  determining  A  ^  and 
,i$n2  from  the  boundary  conditions,  and  then  taking  the  real  parts  of  Eqs.  (B.  44)  - 
(B.  47). 

Boundary  Conditions 

In  the  theory  of  the  sea  breeze  it  is  assumed  that  the  shape  of  the  temperature 
differential  at  the  surface  is  given  by 


0(x,  z-0,  t)  =  sin  Xx  T(t)  , 


where  T(t)  is  a  function  of  time.  A  positive  value  of  T(t)  corresponds  to  the  surface 
temperature  profile  shown  in  Figure  B.  1,  in  which  the  land  temperature 


Figure  B.  I.  Surface  Temperature  Variation 
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is  higher  than  the  temperature  over  the  water.  T(t)  is  expressible  as  a  Fourier 
series  in  multiples  of  the  sidereal  day  frequency,  ft, 


T(t)  =  >  Tn  e 


(B.  50) 


where 


(2tt/$1) 


Tn  =  S2(27r)~1  y  T(t)e  mS2tdt 


2ir/Q.  2i\ /H 

=  (27r)  1  y  T(t)cos(nfit)  dt+  i  ^  T(t)sin(nS2t)  dt 


(B.  51) 


T  =  T  e 
n  n 


is  the  magnitude  of  Tn  and  rn  is  its  phase  as  computed  from  Eq.  (B.  51).  On  the 


other  hand,  from  Eq.  (B.  44)  we  must  have 


Tn  ’  Anl  +  A„2 


(B.  52) 


The  additional  equation  which  is  necessary  to  determine  and  An2  is  deter¬ 
mined  from  the  requirement  that  w  =  0  at  z  =  0  for  each  vibrational  mode.  Thus, 


r1A1  +  roA=0 
nl  nl  n2  n2 


(B.  53) 


Solving  for  A^  and  A  g  from  Eqs.  (B.  52)  and  (B.  53),  inserting  the  results  into 
Eqs.  (B.  44)  -  (B.  47),  and  then  taking  the  real  parts  of  the  latter  equations  will 
give  us  the  expressions  for  the  physical  meteorological  quantities.  First,  however, 
it  is  convenient  to  define  the  following  quantities  in  polar  form. 


A__ ,  =  -  ir  J(  r  ,  -  r 


vnl  =  '  [rn2 


nl  n2 


\1  T 

)  n 


is,  iifs.+T^N 

=  S  e  nlT  =  S  T  e^nl  '  ; 
nl  n  nl  n 


nZ  T  .  s  T*»'(Sn2  +  Tn  )  . 


An2  rn/(r„l  -  rn2)  T„  =  S„2  e  T„  =  S„2  T„  e 


where 


and 


We  then  have 


r  .  =  M  .  e 
nl  nl 


r  „  =  M  0  e 
n2  n2 


g  =  G  e 
6n  n 


G  =  -  f/((T2  +  (nfi)2) 


v  -  -  tan  (nO/cr) 


■I 

n  =  l 

oo 


“  =Z  “n 


Z'. 


(B.  54) 


(B.  55) 


(B.  56) 


(B.  57) 
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where 


6  =  sin  AxT 
n  n 


k  -z 

S  e  n  cos  (nQt+  &  .z+  s  ,  +  t  \ 
nl  ^  nl  nl  n  ) 


kn2z 


+  S  e  cos  /nfit+  £  nz  +  s  ~+  r  N 
n2  ^  m2  n2  r.jj 


(B.  58) 


w  =  sin  Ax  T 
n  n 


k  z 

S  1  M  ,  e  n  cos  /nflt+  i  ,z  +  s  -+  m  ,+  r  'A 
nl  nl  V  nl  nl  nl  n ) 


k  2Z 

+  S  0  M  e  cos  /nfit  +  ,0oz+s+mo+T  A 
n2  n2  ^  n2  n2  n2  n ) 


(B.  59) 


-1  * 
u  =  A  cos  AxT 
n  n 


k  z 

€  ,  S  .U  e  n  cos/nfit+i  ..  z  +  s  +  m  .  +  rj  ,+ 
nl  nl  nl  nl  \  nl  nl  nl  'nl 


Tn) 


kn2Z 
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v  =  X  cos  AxT  G 
n  n  n 


k  z 
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+  £n2S„2M,,2U„2e  cos(nnt  +  «n2z+  sn2+  mn2  +  v+  Jn*  ^ 
In  addition,  the  stream  function  ip  -  B(z,t)  cos  Ax  is  given  by 


(B.  61) 


ip  =  -  A  ^cos  Ax  ^  Tn 
n  - 1 


k  z 

S  ,  e  n  cos  l nQt+  £  _z+s  ,+  m  ,+  r 
nl  nl  V  nl  nl 


1  i+  T  A 

nl  n  J 


^n2z 

+  Sn2Mn2e  cos  l“t+  ln2z  +  sn2+m„2+  T„)  _ 


(B  62) 


282 


References 


B.  1  H.  Jeffreys,  "On  the  Dynamics  of  Wind, "  Quart.  J.  Roy.  Meteorol.  Soc. 

48,  29  (1922). 

B.  2  F.  H.  Schmidt,  "An  Elementary  Theory  of  the  Land  and  Sea-Breeze 
Circulation,  ”  J.  Meteorol.  4,  9  (1947). 

B.  3  B.  Haurwitz,  "Comments  on  the  Sea-Breeze  Circulation, ''  J.  Meteorol. 

4,  1  (1947). 

B.  4  F.  Defant,  "Local  Winds,  ■'  in  Compendium  of  Meteorology  (Boston,  Mass.: 
Am.  Meteorol.  Soc.,  1951)  pp.  655-671. 

B.  5  F.  Defant,  "Theorie  der  Land-und  Seewinde,  "  Arch.  Meteorol,  Geophys. 
Bioklimatol.  2,  404  (1950). 

B.  6  B.  Haurwitz,  "A  Linear  Sea  Breeze  Model,  "  New  York  University,  College 
of  Engineering  Research  and  Development,  Quarterly  Progress  Report  No  3 
Project  Nr.  3-36-05-401,  1959. 

B.  7  R.  P.  Pierce,  "The  Calculation  of  the  Sea  Breeze  Circulation  in  Terms  of 
the  Differential  Heating  Across  the  Coast  Line, "  Quart.  J.  Roy.  Meteorol. 
Soc.  81,  351  (1955), 

B.  8  E.  L.  Fisher,  "A  Theoretical  Study  of  the  Sea  Breeze,  "  J.  Meteorol.  18, 

216  (1960). 

B.  9  Travelers  Research  Center,  Inc  ,  "The  Influence  of  Local  Winds  on  Fallout, 
Contract  No.  DA  36-039  AMC-03283  (E),  July,  1964. 

B  10  Lord  Rayleigh,  "On  Convection  Currents  in  a  Horizontal  Layer  of  Fluid 
When  the  Higher  Temperature  is  on  the  Under  Side,  '•  Phil.  Mag,  32, 

529  (1916). 


APPENDIX  C 


TOPOGRAPHIC  DATA  INPUT  PROGRAMS  TO  PIN  AND  DA  TERR 
Introduction 

The  piecewise-planar  topographic  description  system  provided  for  use  dur¬ 
ing  particle  transport  (see  p  37,  Figure  14,  and  p.131  ff)  requires  that  topo¬ 
graphic  data  be  prepared  and  stored  in  a  specific  manner  on  magnetic  tape  prior 
to  Transport  Module  execution  During  transport,  subroutines  RDTOPO  and 
HEIGHT  serve  to  provide  the  transport  program  with  the  appropriate  topographic 
data  when  it  is  needed  Two  other  programs  TOPIN  and  DATERR,  have  been 
written  to  aid  the  researcher  in  the  preparation  of  topographic  data  tapes  for 
DELFIC  Working  together,  these  two  programs  accept  the  user-prepared  topo¬ 
graphic  description  data  from  cards  perform  many  checks  of  data  structure 
and  consistency,  and  then,  if  the  data  set  is  adequate,  prepare  the  input  tape  to 
be  used  by  the  Transport  Module 

Description  of  Card  Inputs 

To  explain  the  use  of  programs  TOPIN  and  DATERR,  we  present  in  Table 
C  1  a  description  of  the  card  inputs  to  TOPIN  and  DATERR  (A  suggested  pro¬ 
cedure  for  encoding  actual  topographic  data  and  descriptions  of  the  operation  of 
both  TOPIN  and  DATERR  along  with  flow  charts  and  program  listings  are  included 
in  the  sections  that  follow  ) 


Preceding  page  blank 
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TABLE  C.  1 


CARD  INPUTS  TO  TOPIN  AND  DATERR 


Card 

Number 

Content 

Variable  Names 
and  Format 

1 

Limiting  coordinates  of  the  area  to  be  covered 
by  this  topographic  data  tape:  lower  X,  upper  X, 
lower  Y,  upper  Y  (m) 

TXLL,  TXLU, 

TYLL,  TYLU 
(4E13.6) 

2 

Topography  identification  card 

(TOPID(J)J=l,  12) 
(12A6) 

3 

Control  integer  to  indicate  which  data  checking 
program  is  to  be  used.  0  indicates  DATERR, 
other  values  are  unassigned 

ISUBR 

(12) 

4 

Print  control  integer.  0  causes  all  inputs  to 
be  printed.  1  suppresses  printing. 

IPRNT 

(12) 

5 

Grid  interval  and  limiting  coordinates  for  the 
first  block  of  topo  data  (m) 

GRINT,  BXLL, 
BXLU,  BYLL, 

BYLU 

(5E13.6) 

6 

Number  of  grid  squares  in  the  X  direction  and  in 
the  Y  direction,  respectively,  in  the  regular 
data  array  S(I,  J) 

II,  JJ 
(2112) 

7 

Regular  grid  data  and  address  array  of  the 
current  data  block 

((S(I,  J),  1=1,  II), 

J=1 ,  JJ) 

(5E13.6) 

8 

Subsidiary  data  and  address  array  of  the  current 
data  block  to  be  read  five  entires  per  card.  The  end 
of  this  data  set  is  marked  by  a  blank  entry. 

SUBSID  (K)  to 
SUBSID(K+  5) 
(5E13.6) 

9 

Same  as  card  set  5  but  for  the  second  data  block 

10 

Same  as  card  set  6  but  for  the  second  data  block 

11 

Same  as  card  7  but  for  the  second  block 

12 

Same  as  card  8  but  for  the  second  data  block 

Last 

Card 

blank 
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A  Recommended  Procedure  for  the  Encoding  of  Topographic  Data 

The  piecewise-planar  description  system  was  designed  to  allow  the  user  to 
provide  when  necessary  a  detailed  topo  description  for  DELFIC  transport.  In  his 
initial  planning  for  describing  a  topo  surface  the  user  must  first  settle  upon  the 
limiting  coordinates  of  the  area  he  wishes  to  describe.  If  this  rectangular  area  is 
large  in  relation  to  the  desired  degree  of  detail  within  it,  the  user  may  wish  to 
break  the  area  up  into  a  number  of  subareas.  It  is  recommended  that  the  number 
of  subareas  be  kept  as  small  as  possible,  preferably  one,  since  program  running 
time  increases  with  the  number  of  subarea  blocks.  The  procedure  for  encoding  the 
data  of  an  individual  block  begins  with  the  determination  of  the  limiting  coordinates 
of  the  topo  subarea  corresponding  to  the  forthcoming  data  block.  Like  the  complete 
topographic  area,  all  subareas  are  rectangular  with  sides  arranged  north-south 
and  east-west  so  that  only  four  coordinates  are  required  to  define  and  locate  the  sub- 
area.  In  addition  a  grid  interval  must  be  specified.  This  interval  should  be  arranged 
so  that  the  two-dimensional  array  S(I,  J)  is  used  extensively  because  the  program 
running  time  is  not  adversely  affected  by  having  many  entries  in  S(I,  J). 

Further  subdivision  of  the  grid  squares  represented  in  S(I,  J)  will  add  to  program 
execution  time  and  thus  should  be  used  only  when  necessary  to  achieve  the  desired 
degree  of  topo  detail.  Of  course,  the  data  set  for  further  subdivisions  of  S(I,  J)  is 
restricted  by  the  dimensioned  size  of  array  SUBSID(K), 

The  procedure  recommended  for  actually  encoding  the  topo  data  for  arrays 
S(I,  J)  and  SUBSID (K)  is  as  follows: 

1.  Secure  topo  sheet(s)  for  the  area  to  be  encoded, 

2,  On  the  topo  sheet(s)  draw  the  limits  of  the  subarea  and  the  grid 
lines  to  subdivide  the  subarea.  Note  that  in  drawing  these  grid 
lines,  the  user  should  start  in  the  south-west  corner  and  work 
toward  the  north-east.  For  a  prescribed  grid  interval  the 
last  row  and  column  represented  on  the  topo  sheet  may,  and 
can,  extend  somewhat  beyond  the  northern  and  eastern  limits 
of  the  subarea.  An  automatic  compensation  is  made  by  the 
program  to  adjust  the  area  boundaries. 
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3  Next,  the  user  should  consider  each  grid  square  in  turn  to 
determine  whether  or  not  further  subdivision  is  desired. 
Squares  not  to  be  subdivided  simply  have  their  elevation 
entered  in  the  appropriately  indexed  elements  which,  inci¬ 
dentally.  are  read  by  the  program  row  by  row  (west  to  east) 
from  south  to  north.  Whenever  the  user  encounters  a  grid 
square  that  he  wishes  to  subdivide,  an  address  (index  K)  of 
the  first  of  a  group  of  four  entries  in  the  array  SUBSID(K) 
must  be  entered  into  S(I,  J)  preceded  by  a  minus  sign.  The 
array  SUBSID(K)  may  be  blocked  off  into  sets  of  four  before 
starting  this  encoding  procedure;  if  these  sets  are  filled 
in  sequence  from  the  top.  no  difficulty  will  arise. 

It  is  recommended  that  the  researcher  draw  subdividing  lines 
on  the  topo  sheet  whenever  a  grid  square  is  subdivided.  Grid 
squares  are  always  subdivided  into  four  equal-sized  squares. 

It  is  recommended  that  the  user  proceed  in  a  regular  manner 
left  to  right  within  rows  and  bottom  to  top  by  rows  until  the 
basic  two-dimensional  grid  has  been  passed  over  once.  The 
sequence  of  blocks-of-four  in  SUBSID(K)  will  then  be  esta¬ 
blished  as  identical  to  the  established  sequence  of  addresses 
written  into  S(I,  J), 

4.  Next,  the  user  should  return  to  the  first  grid  square  which 
was  marked  to  be  subdivided  and  assign  either  heights  or 
further  addresses  to  its  four  subdivisions.  The  sequence  in 
which  the  tour  subdivisions  are  to  be  treated  is  established 
by  convention  as  indicated  by  the  following  diagram: 
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Note  that  the  sequence  is  clockwise  from  the  south-west  corner 
This  sequence  is  used  by  subroutine  HEIGHT  in  retrieving  height 
data  and  must  be  observed  by  the  user 

It  is  recommended  that  the  user  adopt  the  procedure  of  passing 
across  the  complete  map  subarea  at  the  level  of  first  sub¬ 
divisions  of  grid  squares  before  further  subdividing  the  sub¬ 
divisions  In  this  way  he  will  be  able  to  maintain  the  required 
sequences  without  conscious  effort  to  explicitly  relate  entries 
in  SUBSID(K)  to  particular  subdivision  areas  on  the  map 

Operation  of  Programs  TO  PIN  and  DATERR 

TO  PIN 

After  initializing  itself  and  rewinding  two  tapes  TOPIN  begins  by  reading  a 
card  containing  the  limiting  coordinates  of  the  complete  area  for  which  the  topo¬ 
graphic  heights  are  to  be  recorded.  This  area  must  always  be  rectangular  in 
form  with  its  sides  aligned  in  east-west,  north-south  directions  so  that  four 
coordinates  suffice  to  define  it  Next,  TOPIN  reads  an  integer  (ISUBR)  which 
indicates  the  user's  selection  of  a  data  checking  program  (Currently  only  one 
data  checking  program,  DATERR,  exists  )  Next  another  integer,  IPRINT,  is 
read  to  indicate  whether  or  not  the  program  should  print  a  full  copy  of  its  results. 

If  IPRINT  is  zero,  icsults  will  be  printed 

Next,  the  program  branches  on  the  value  of  ISUBR  to  a  data  reading  and  check¬ 
ing  program  Currently  DATE'  R  is  the  only  one  available  so  that  DATERR  is 
called  at  this  point  DATERR  reads  and  checks  topographic  data  for  one  topographic 
data  block  each  time  it  is  called  DATERR  returns  with  parameter  GRINT  -0.0 
when  it  is  entered  after  all  topographic  data  have  been  processed 

Upon  return  from  DATERR  or  any  other  data  reading  and  checking  program 
TOPIN  checks  parameter  GRINT  for  the  termination  condition  (GRINT  -0  0)  If 
termination  is  indicated,  a  transfer  is  made  to  statement  number  11  (see  the  pro¬ 
gram  listing)  for  final  processing;  if  otherwise,  parameter  ITAPE  is  tested  to  see 
if  a  valid  topo  tape  is  still  possible  (ITAPE  =  0)  or  if  only  a  check  of  the  remaining 
input  deck  can  be  made  (ITAPE  /-  0)  It  ITAPE  equals  zero,  a  block  count  and  the 
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arrays  Sil,  J)  and  SUBSID(K)  are  put  temporarily  onto  tape  ITEMPO  and  a  return 
is  made  to  statement  81  which  is  just  before  the  calls  to  the  data  checking  programs. 

If  ITAPE  does  not  equal  zero,  the  writing  out  of  the  processed  data  records  is 
skipped  Eventually  the  condition,  GRINT  =  0.0  will  be  encountered  and  processing 
will  continue  at  statement  13.  At  13  the  parameter  ITAPE  is  checked  again  and  if 
errors  have  already  been  discovered  in  the  data  set,  a  comment  is  made  to  that 
effect  and  TO  PIN  stops.  Otherwise,  parameter  ICHECK  is  set  to  1  and  DATERR 
is  entered  to  carry  out  certain  other  tests  on  the  data  set  as  a  whole.  If  errors  are 
found,  ITAPE  is  set  positive  so  that  when  DATERR  returns,  a  test  of  ITAPE  can 
lead  to  either  an  error  comment  (if  ITAPE  ^  0)  or  the  writing  of  the  topography  tape 
in  final  form  (if  ITAPE  =  0)  and  then  a  final  stop. 

DATERR 

As  indicated  earlier  this  program  has  two  different  modes  of  operation.  In  the 
first  (called  when  ICHECK  =  0)  it  reads  and  checks  a  block  of  topographic  data,  and 
in  the  second  (ICHECK  /  0)  it  performs  tests  on  the  complete  topo  table  of  contents 
and  prepares  the  topo  tape  (IHTOPO)  in  its  final  form.  The  read-and-check  mode 
begins  at  statement  16  by  reading  a  card  containing  a  grid  interval  and  the  limiting 
coordinates  pertaining  to  the  rectangular  area  that  is  to  be  documented  in  the  current 
data  block.  A  zero  value  of  GRINT  indicates  that  the  last  actual  data  block  has 
already  been  processed  and,  therefore,  if  GRINT  =  0.0,  a  return  is  made  immediately; 
if  not,  the  block  counter  IBLOCK  is  incremented  and  the  data  arrays  S(I,  J)  and 
SUBSID(K)  are  read.  Then,  at  statement  22  data  checking  begins.  Between  22  and 
40  the  code  ascertains  that  the  addresses  imbedded  with  S  and  SUBSID  are  indeed 
reasonable  and  matched  by  appropriate  values  or  further  addresses. 

Next,  after  40.  the  highest  topo  height  is  found  and  recorded  in  the  topo  table 
of  contents  along  with  lower  coordinate  limits,  grid  interval,  and  maximum  array 
indices  of  the  current  data  block. 

Successive  tests  are  carried  out  as  follows:  (1)  to  ascertain  that  the  number 
of  entries  in  the  subsidiary  table  is  four  times  the  to+al  number  of  addresses  in 
S(I,  J)  and  SUBS1D(K),  (2)  to  ascertain  that  all  height  entries  may  be  logically 
reached,  (3)  to  check  that  the  total  area  to  be  covered  by  the  topo  tape  is  not 


greater  than  the  sum  of  the  subareas  covered  by  the  individual  data  blocks,  (4)  to 
seek  out  any  cases  in  which  one  subarea  is  totally  included  within  another,  and  (5) 
to  check  that  no  gaps  have  been  left  between  neighboring  subareas.  If  any  of  these 
tests  uncover  an  trror,  an  explanatory  comment  is  written  and  parameter  IT  APE 
is  set  positive  to  indicate  that  a  topo  tape  cannot  be  written  in  the  desired  final 
form. 

Flow  Charts  and  Program  Listings 

Flow  charts  of  the  main  program  TOPIN  and  subroutine  DATERR  are  shown  in 
FC-C.l  and  FC-C.2,  respectively.  FORTRAN  listings  are  included  on  p.  299  ff. 
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FC-C.  1.  Flow  Chart  of  Main  Program  TOPIN 
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(a) 

FC-C.2.  Flow  Charts  of  Subroutine  DATERR 
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RECORD  LIMITS,  GRID  INTERVAL. 
AND  MAXIMUM  INDICES  FOR  THIS 
TOW)  DATA  BLOCK  IN  THE 
TABLE  OF  CONTENTS 


GRINT  »  TOPOLMOLI) 

XII  =  ITOPLMd.  I) 

XJJ  =  ITOPLM(2.  0 
STO(l.  I)  =  TOPOLM(l.I) 

STO(2, 1)  =  TOPOLM(2,I) 

STO(3, 1)  =  TOPOLMG.  I)  *  XII  ♦  GRINT 
STO(4. 1)  =  TOPOLMI2.I)  *  XJJ  *  GRINT 
AREA  =  AREA  *  (STO(3.  0  -  STO(l.I))  *  (STO(4,I)  -  STO(2.I)) 


1=  I  *  l 
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(d) 

FC-C.2.  (Continued)  Flow  Charts  of  Subroutine  DATERR 
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He  I GHT  Ur  oK I U  bUoARC  1»U  oN  iHt  hmF  OK  A  neurt I  I  Ye 
NUMaeR  wnlort*  WHoN  luNVckTcd  To  a  PualliVc  InIlGlU  i 
lb  THE  I  NueX  »  K*  TO  A  NopIduR  IN  The  UNe-0  1  nefij  1  onAL 
ARRAY.  aOda I D ( K ) •  IF  A  HuNa  £R  IN  a  (  I  *  J  )  I  j  NcGAIlvE.TuPI 
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r  vt  i t  vt  x  vc  vt  St  St  i 
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T  oP  I 
T  op  I 
T UP  I 
ToPI 
'ToPI 
TOP  I 

r up  i 

IoPI 

TOPI 


22 

23 

24 
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j  a 
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■it  "ft  it  -it  -it  vtvtvcvticvc 

St  vt  it  Sc  it  Sc  Sc  Sc 

St  St 

Sc  St  if  it  St  Sc  S 

r  VC 

x  it  vc  vt  it  it  vc  x  x  St 
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9 
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lauuT 

9 
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« 
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1  UNI  i'lo  >'.b  c  K  ht«X.'  L  I  i  L  J  • 

c 

(_ 
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N  w  r  |  N  I'  -I  I  I  ^  r  W  U  I  -I  i_‘.  L 
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6  1 
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1C 

3  c 
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L  ■  r  e 
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„ 
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EAO  t  I  1 
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CALL  0  A  T  E  *  R 

I  F  (  N  :iLC<.  -  AXd  i_  <  )  30*3o*j1 
1  F  (  G  K  I  \  T  )  i  3  »  1  b  *  1  I 
WRITE  (  i  o  o  o  T  *  3  3  ) 

GO  TC  16 

I  F  (  I  T  A  P  F  )  1  ,  1  2  *  1  0 

•v R  ]  T  c  i  I  Ici-ihv)  IuLoCn 

/*  ;•<  I  7  £  (  I  i  Lr'Ro  )  l  (6(1  9  J  )  *1  =  1*11 

vv  a  I  T  t  t  1  1  LiNhu  j  I  ojjj  1  i  ^  )  j  rN=  i  « 

GO  TO  c  1 

I  F  (  I  T  APE  )  1  *♦  *  1 5  *  14 
w  R 1 1  c.  (1  oUOT  .  7  ) 

GO  TO  16 
I CHECK=  1 
CALL  UATERR 
I F ( I  TAPE ) 2 1 .20.21 
WRITE  (ISOUT.22) 
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;  * 

)  !wr  i 

•  1  er  , 

'  - 
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Teh  I 
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T  eh  1 
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T eh  i 

dv 

T  eh  J 

4  e 

T  eh  i 

9  i 

t.pi 
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9  o 

T  e  r  I 
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T  eh  1 

9  o 

I  eP  i 

9  b 

T  eP  1 
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9  o 

T  ^h  I 
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10^* 

J  hP  I 
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I  eP  I 
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i  eh  i 
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TePi 

no 

T  eP  I 
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1  14 

TeP  I 
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1  16 
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GO  TO  16 

WRITE  (IHIuku)  OEivTI 

vui  I  IE  l  I  H  i  uPu  )  IXlLj  i  a  L  o  t  I  iLl.iT  TLOil'idLLN 
WRITE  l  I  h  T  o  F  0  » 2  ) 

IV  R  I  T  E  l I H 1 JFU ) T  JKuL'V 
WRITE  (  I HTJPu )  I  ToRL.-' 

REWIND  I  T  E  fi  P  0 
a  E  AD  (ITEi-iPGlleLGCA. 

I  r-l=  I  ToPLM  It  loLOCM 
J  .-i  =  I  T  ur'  E  Pi  1 2  *  I o  LooR ) 
n  i*i  =  i  T  o  P  L  M  (  p  t  IdLoCn) 

READ  (  IT  l  i*i  P  o  )  l  I  o  (  I  »  I  =  1  »  I  i*i )  »  j  =  1  *  J  i-i ) 

R  L  A  D  II  I  Crl  F  O  )  I  O  UDJ  I  1  -\  )  •  N  -  1  »  Rt'i  ) 
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.vrITl  I  IHI  Jt-u  I  l  U  i  \l  *  N  =  1  *Nl'l  ) 
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END 
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>  DALl 

Cormo  N 

JJ 

*  N.N 

Co  .'.tMO  IM 

I  J  JO  1 

>  i  0  1-^ 

C  O  ■  * !  1 '  *  0 1  » 

i  ALo 

9  i  !  LL 

l 

FOR'-'aT 

I  3li;.o ) 

2 
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0 
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6 
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7 
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6 
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